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

Question

Иванна

5 октября, 02:46

+5

Ответы (1)

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

Досифея · Answer 1

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

program dz;

var a:integer;

begin

readln (a) ;

if a<0 then a:=0;

writeln (a) ;

end.