Информатика, опубликовано 2018-08-22 21:52:09 by Гость
Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.
Ответ оставил Гость
Var
i,x:integer;
begin
i:=0;
while x0 do
begin
readln(x);
i:=i+1;
end;
writeln(i);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.