Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано целое число написать программу выводящую ноль если число меньше нуля или без изменений если больше нуля

Ответ оставил Гость

Var n:integer;
begin
write(Введите целое число: );
readln(n);
if n<0 then n:=0;
writeln(n);
end.