Программа получает на вход последовательность целых неотрицательных чисел, каждое число
записано в отдельной строке. Последовательность завершается числом 0, при считывании
которого программа должна закончить свою работу и вывести количество чисел
последовательности. (цикл while)
DFleX
3
26.03.2020 21:21
0 
Популярные вопросы
- На фото если можно побыстрее...
3 - Төменде берілген сөйлемдерден біріңғай мүшелерді тауып, астын...
2 - На большой поршень действует сила 18000Н, а на малый- 300Н.какой...
1 - 17. Найти сумму геометрической прогрессии b1,b2,b3,b4,..., b10,если...
2 - D65 от до диеза разрешить в мажорной тональности D65 от соль...
1 - Найдите английские эквиваленты следующим словам и выражениям:...
1 - с английским(Спам-бан) 1.If they go on a journey, Kevin a)would...
1 - Порівняйте правління Елизавети 1 та Марії Стюарт...
1 - 2. Сравните сведения Бекистинско и надписисо сведениями Полимча...
3 - Після запліднення з насінних зачатків утворюється ..., а квітка...
3
(PascalABC)
var i,cnt: integer;
begin
i:=-1;
cnt:=0;
while (i<>0) do
begin
write('Введите число: ');
readln(i);
cnt:= cnt + 1;
end;
writeln('Количество чисел в последовательности равно ',cnt);
end.