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

Question

Информатика

Серафим

1 сентября, 16:41

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

+4

Ответы (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.