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

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

Количество чисел не превышает 1000. Введённые числа по
модулю не превосходят 30 000.

Программка должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.






Задать свой вопрос
1 ответ
Uses crt;
var a,sum:integer;
begin
     sum:=0;
     repeat
           read(a);
           if (a mod 6=0) or (a mod 11=0) then sum:=sum+a;
     until a=0;
     writeln(sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт