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

Question

Иванна

22 марта, 10:29

+1

Ответы (1)

Знаете ответ?

Досифея · Answer 1

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

program dz;

var a:integer;

begin

readln (a) ;

if a<0 then a:=0;

writeln (a) ;

end.