var a:real;
k:integer;
begin
k:=0;
repeat
readln(a);
k:=k+1;
until a=0;
write('K='k);
Похожие записи/страницы:
- Последовательность действительных чисел оканчивается нулем. Найти количество членов этой последовательности -…
- Дана последовательность целых чисел а1 а2, ..., аn. Наибольший член этой последовательности заменить целой…
- Дана последовательность целых чисел а1 а2, ..., аn. Наименьший член этой последовательности заменить целой…
- Дана последовательность вещественных чисел, оканчивающаяся числом 10000. Количество чисел в последовательности…
- На вход подается последовательность, оканчивающаяся нулем. Kak определить какое кол-во факториалов в этой…
- Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найти 2 наибольших числа…
- Дан массив A из 10 чисел,в нем последовательность от a до b,надо найти количество чисел в этой…
- Дана последовательность чисел, заканчивающихся нулем. У каждого числа сначала записано количество цифр в этом…