Даны три целых числа. определить, сколько среди них - вопрос №1568435 от цветочек751 19.01.2021 11:23

Question

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

цветочек751 · 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.