Задание:
Ввести число если оно не отрицательно вычесть из него 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.
Знаете другой ответ?