Задание:
Дано целое число. Написать программу которая заменяет его на 0, если число отрицательное и выводит его без изменений в пративномслучае.
Решение:
В паскале АВС выглядит так: program dz; var a: integer; beginreadln (a); if a<0 then a: =0; writeln (a); end.
Знаете другой ответ?