Напишите программу, которая в последовательности натуральных чисел определяет количество четырёхзначных чисел, кратных 7. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончания ввода, не входит в последовательность). программа должна вывести одно число: количество четырёхзначных чисел, кратных 7.
114
404
Ответы на вопрос:
Var a,k: integer; begin k: =0; repeat read(a); if (a> 999)and(a< 10000)and(a mod 7 = 0) then k: =k+1; until a = 0; write(k) end.
На планете не десятичная система счисления. пусть основание системы счисления а тогда запишем условия ввиде уравнения 2*а+1=1*а+2+3 а=4 на планете 4-хричная система счисления.
Популярно: Информатика
-
лиод114.02.2021 21:44
-
menoralle02.02.2021 02:49
-
ПоНчИкНям12.08.2020 14:25
-
mamakarina13.06.2023 12:45
-
seksi250510.10.2021 08:13
-
yasasmail14.06.2020 21:07
-
нина65519.01.2022 04:12
-
Stepan7110.04.2023 04:46
-
123qjfj13.02.2022 00:05
-
Дария240322.02.2020 11:13