напишите программку, которая в последовательности естественных чисел определяет количество

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

Задать свой вопрос
Staroskolskij Vadim
Паскаль? Бейсик?
Генка
Pascal
Вера Кореник
Срочно помогите!!!!!
1 ответ
Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if (Agt;999)and(Alt;10000)and(A mod 7 = 0) then k:=k+1;
Until A = 0;
Write(k)
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт