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

Question

Информатика

Серафим

25 октября, 15:27

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

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