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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted 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.