Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое двузначных чисел или вывести no, если таких чисел в последовательности нет.
151
405
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var r: =readseqintegerwhile(t-> t< > 0).where(t-> t.between(10,99)) .defaultifempty.average; (r> 0 ? r.tostring : 'no').println end.
Замечание. так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием true, но как только будет введено число 0, остановим цикл командой break. программа: program z; var k,s,x: integer; begin k: =0; {начальное значение количества двузначных чисел} s: =0; {начальное значение суммы двузначных чисел} while true do {открываем бесконечный цикл} begin readln(x); {вводим число х} if x=0 then break; {если введенное число равно 0, то остановить цикл} if (x> 9)and(x< 100) then {если число двузначное, т.е. от 10 до 99} begin k: =k+1; {количество увеличиваем на 1} s: =s+x; {увеличиваем предыдущее значение суммы на число х} end; end; if k=0 then writeln('no') {если двузначных чисел не было, то вывод no} else writeln(s/k); {иначе вывод ср.арифметического} end.
Var a : integer; begin readln(a); if odd(a) then a: =a*5 else a: =a div 4; writeln(a); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
manzharenko1320.03.2021 18:00
-
manawer18.06.2021 15:22
-
013Angelina13920.02.2021 20:15
-
Dashakrasaveta11.02.2023 15:01
-
dianadavletova05.01.2021 21:55
-
lisa22151328.03.2023 20:50
-
askarova64524.05.2020 23:56
-
PooКякя06.07.2021 01:40
-
dan36225.02.2020 23:03
-
Ростик2281231215.07.2021 07:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.