Даны три целых числа. определить, сколько среди них - вопрос №1568835 от чашечкачая 19.05.2022 17:14

Question

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

чашечкачая · 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.