Даны три целых числа. определить, сколько среди - вопрос №1569003 от ashaburovaa 21.08.2022 00:58

Question

Информатика: Даны три целых числа. определить, сколько среди них положительных чисел. составить программу на языке паскаль

ashaburovaa · Answer

var a,b,c,col:integer;

begin

col:=0;

readln(a,b,c);

if (a>0) then col:=col+1

else if (b>0) then col:=col+1

else if (c>0) then col:=col+1;

writeln('Положительных чисел: ',col);

readln;

end.