1. Информатика
  2. Напишите программу, которая в

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

scravtz scravtz    1   25.08.2019 07:30    0

Ответы
Ellis2034 Ellis2034  05.10.2020 18:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katiabrandt17 katiabrandt17  13.09.2020 03:24
Решите задание по информатике) )...
KrIsTaLLiK16 KrIsTaLLiK16  13.09.2020 03:22
Рассмотрим последовательность 1, 11, 21, 1211, 111221, …. Каждое последующее число последовательности получается следующим образом: для каждой группы идущих подряд одинаковых...
виталий124 виталий124  29.08.2019 04:41
Напишите программу в дельфи которая переводит число из десятичной в факториальную систему счисления....
Katrin8745 Katrin8745  11.03.2021 16:48
Записать логические выражения, которые имеют значение Истина только при выполнении указанных условий х 0 и у 5;...
Serch23 Serch23  11.03.2021 16:48
угловая скорость вращения измеряетсяпрограммный блок эротический Датчик имеет режим работы в движении работы по верхней линии на полу осуществится понимающе датчика ​...
ISZ2002 ISZ2002  11.03.2021 16:47
написать программу в PascalABC...
нет169 нет169  22.05.2019 01:50
Сложения чисел, хранящихся в ячейках а1 и в1; - вычитания чисел, хранящихся в ячейках a3 и в5; - умножения чисел, хранящихся в ячейках с1 и с2; - деления чисел, хранящихся в ячейках...
Lomberts Lomberts  22.05.2019 01:50
№1. дано a=ea(16), b=354(8). какое из чисел с, записаннх в двоичной системе, отвечает условию a...
PerfectM1nd PerfectM1nd  14.04.2021 11:42
Какие есть опасности при работе в Интернете? Урок 1 Определи термин по описанию:-данные не были изменены в ходе их передачи, хранения илиотображения. Редактирование возможно лицами,...
Efendieva2004 Efendieva2004  13.04.2020 16:53
Если требуется ввести с клавиатуры значение и преобразовать его в целочисленный формат, то нужно переменной присвоить..float(input())str(input())int(input())input()​...

Популярные вопросы