Программа,вычисляющая кол-во положительных чисел до первой сотни
Программа,вычисляющая кол-во положительных чисел до первой сотни
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы