Автор Наташа Петрова задал вопрос в разделе Другие языки и технологии
помогите пожалуйста срочно решить задачи на языке паскаль: 1)Дано целое число. Если оно является положительным, то прибав и получил лучший ответ
Ответ от Koshachek[гуру]
1. var a:integer; begin write(\'введите число\'); read(a); if (a>1) then a:=a+1 else a:=a-2; write(a); end.
Ответ от Валерий Лось[активный]
1-я Var a: integer; Begin Readln(a); If a>0 then Begin A:=a+1; End; Else Begin A:=a-2; End; End. Как то так, но я ноль не учитывал
1-я Var a: integer; Begin Readln(a); If a>0 then Begin A:=a+1; End; Else Begin A:=a-2; End; End. Как то так, но я ноль не учитывал
Ответ от Ёофия Тишанская[новичек]
var a:integer; begin readln(a); if a>0 then writeln(a+1) else writeln(a-2); end.
var a:integer; begin readln(a); if a>0 then writeln(a+1) else writeln(a-2); end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: помогите пожалуйста срочно решить задачи на языке паскаль: 1)Дано целое число. Если оно является положительным, то прибав