Ответы на вопрос:
Var a, s: integer; begin s : =0; repeat readln(a); if (a mod 2 < > 0) and (a < 100) and (a > 9) then inc(s, a); until a = 0; writeln(s); end.
Популярно: Информатика
-
С пока цикла найти сумму четных чисел от 2 до 100 pascal...
bon110128.02.2020 01:47 -
Користувач вводить два дійсних числа а та b. Реалізувати проект у якому менше...
xile4t09.04.2022 20:25 -
Значение переменной A после выполнения алгоритма...
QureAdmiral27.05.2023 20:35 -
C++ 1. дано натуральное число. определить среднее арифметическое его цифр кратных...
elenaveruaskina02.10.2020 17:29 -
Кто изобрел Интернет? ...
Sivcova94230.08.2022 14:48 -
2. Сколько бит памяти займет слово «Микропроцессор», если оно записано буквами...
lev9327.05.2023 10:29 -
Какие режимы вида документа естт в програме Word...
artur1991200031.07.2020 05:06 -
Обчисліть площу і периметр прямокутної кімнати шириною 12.5 метрів і довжиною...
olyazhili06.11.2022 14:19 -
Строка в которой отображается название программы?...
pro00losk14.01.2022 10:18 -
Алфавит, содержащий два символа (8 букв)...
Dashon200010.04.2021 13:19