Вопрос пользователя:
ввести число если оно не отрицательно вычесть из него 50, в противном случае прибавить к нему 100. Решение
Илюха отвечает:
var a : real;
begin
readln(a);
if a>=0 then writeln(a-50) else writeln(a+100);
end.
ввести число если оно не отрицательно вычесть из него 50, в противном случае прибавить к нему 100. Решение
var a : real;
begin
readln(a);
if a>=0 then writeln(a-50) else writeln(a+100);
end.