Написать программу , которая увеличивает число на 7, если оно меньше нуля и уменьшает на 2. если исходное число больше 0

102

131

Посмотреть ответы 3

Ответы на вопрос:

vladawlada

Информатика

4,6(60 оценок)

Var a,b,c: integer; begin writeln('введите число'); readln(a); if a< 0 then b: =a+7 else b: =a-2; if a=0 then while a=0 do begin writeln('введите другое число'); end; writeln('полученное число ', b); end.

Romchik1111111

Информатика

4,6(81 оценок)

Var x : real; begin writeln ( 'введите число : '); readln (x); if (x< 0) then x: =x+7 else if (x> 0) then x: =x-2; writeln (' конечное число : ',x); end.