Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.