Программа, вычисляющая кол-во положительных чисел до первой сотни

Question

Информатика

Полинка

29 марта, 14:05

Программа, вычисляющая кол-во положительных чисел до первой сотни

+2

Ответы (1)

Знаете ответ?

Варлам · Answer 1

Program n1;

var k, a: integer;

begin

k:=0;

while true do

begin

readln (a) ;

if a>0 then k:=k+1;

if k=100 then break;

end;

writeln (k) ;

end.