Есть ответ 👍

Напишите программу, которая в последовательности натуральных чисел определяет количество четырёхзначных чисел, кратных 7. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончания ввода, не входит в последовательность). программа должна вывести одно число: количество четырёхзначных чисел, кратных 7.

114
404
Посмотреть ответы 2

Ответы на вопрос:

bolll4
4,6(83 оценок)

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-хричная система счисления.

Популярно: Информатика