Ответы на вопрос:
vara,k : integer; beginrepeatbeginwriteln ('введи число'); read (a); if (a mod 2 < > 0) then k: =k+1; end; until a=0; writeln ('количество нечетных чисел k=',k); end.
Популярно: Информатика
-
1. Какое количество таблиц может быть связано в схеме данных СУБД Microsoft Access:...
soung131.10.2022 01:48 -
очень важно. буду очень благодарен...
zaaz12328.02.2020 23:23 -
Даны действительные числа x, y. Если x и y положительные числа, вычтите их из корня;...
ladusik6904.09.2022 03:22 -
информатика Найдите длину окружности. Радиус окружности задать самостоятельно....
sgsfgff11.09.2020 21:15 -
Какими тремя способами можно удалить графический объект, . со п@!...
Åпéłьčüñkå17.03.2023 09:28 -
Система команд исполнителя ластик имеет вид запишите алгоритм...
TheOksikPlay31.12.2020 09:58 -
15 ! задана последовательность из n действительных чисел, введенных с клавиатуры....
люда33428.03.2022 16:52 -
37 опишите настройки блока ожидание по его ноображению (рис. 26)....
Алиса34578003.02.2023 21:29 -
Вчем состоит принцип растровой графики ? ...
evagir02.12.2021 12:47 -
Процесс преобразования зашифрованной информации в первоначальную форму при котором...
lenokv01.01.2021 05:32