Поделитесь своими знаниями, ответьте на вопрос:
На python выручайте нужно прямо , иначе пропалвремя шло, а алиса всё продолжала падать. делать ей было совершенно нечего, и она снова стала рассуждать вслух: — дина будет скучать без меня (дина — это алисина кошка надеюсь, ей не забудут налить вечером в блюдечко молока… дина, моя милая, как было бы хорошо, если бы ты была сейчас со мной! правда, мыши здесь, наверное, только летучие, но ведь они похожи на обыкновенных. — алиса зевнула — ей вдруг захотелось спать, совсем сонным голосом проговорила: — едят ли кошки летучих мышек? — она повторяла свой вопрос снова и снова, но иногда и спрашивала: — едят ли летучие мышки кошек? — впрочем, если некому ответить, то не всё ли равно, о чём спрашивать, верно? вообще-то дина разборчивая кошка. и летучих мышек она не ест, она с ними знакомится. но их много, со всеми не перезнакомишься. нужно как-то выбирать, например, представляться только мышке с номером, начинающимся с загаданной цифры.напишите программу, которая выводит все числа последовательности, начинающиеся заданной цифрой k.если некоторое число появлялось в последовательности более одного раза, то нужно вывести его только один раз.порядок вывода значения не имеет.формат вводав первой строке вам дается произвольная цифра k.во второй строке дается последовательность из нескольких натуральных чисел, записанных через пробел.формат выводанесколько чисел записанных через пробел.пример 1ввод вывод22 12 212 1212 212122 21212 212пример 2ввод вывод31 4 7 10 13 16 19 22 25 28 31 34 3737 34 31пример 3ввод вывод22 12 22 12 222 2
a: integer; //a - вводимое число
n, s: integer; //n- количество введенных чисел, s - сумма этих чисел
begin
n:= 0; //обнуляем счетчик
s:= 0;
a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
while a <> 0 do
begin
writeln('Введите целое число');
readln(a);
if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0
begin
n:= n + 1;
s:= s + a;
end;
end;
writeln('Среднее арифметическое введенных чисел: ', s / n);
end.