Question

Напишите программу решающую следующую задачу.

Дано целое число. Если оно является положительным, то вычесть из него 8; в противном случае прибавить к нему 6. Вывести полученное число.
на языке пскаль

Answer 1

Ответ:

program Hello;

var a:real;

begin

 writeln ('Napishite chislo');

 readln (a);

 

 if a>0 then a:=a-8 else a:= a+8;

 writeln (a);

end.