olcheymaaaa
18.12.2022 06:37

Вводить с клавиатуры числа, пока не будут введен 0. найти количество введенных чисел.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
valeriia8
01.10.2020 11:25
Var
i,x:integer;

begin
i:=0;
while x<>0 do
begin
 readln(x);
 i:=i+1;
end;
writeln(i);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота