Дано целое число. Написать программу которая заменяет его на 0, если число отрицательное и выводит его без изменений в пративном случае.

Question

Виктория

23 августа, 23:47

+5

Ответы (1)

Знаете ответ на вопрос?

Максима · Answer 1

В паскале АВС выглядит так:

program dz;

var a:integer;

begin

readln (a) ;

if a<0 then a:=0;

writeln (a) ;

end.