Ввести число a. Если оно не отрицательно, то вычесть из него 30, иначе прибавить 70. Результат a сообщить на экран
Решить программным алгоритмом
Помогите пожалуйста мне
Решить программным алгоритмом
Помогите пожалуйста мне
More Questions From This User See All
Answers & Comments
var
a: real;
begin
write('Введите число: ');
readln(a);
if a > 0
then a := a - 30
else a := a + 70;
writeln('Новое число - ', a);
end.