ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ Напишите программку, которая в последовательности натуральных чисел

ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ Программку Напишите программку, которая в последовательности естественных чисел определяет сумму чисел, кратных 3. Программка получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превосходит 100. Введённые числа не превосходят 300. Программка обязана вывести одно число сумму чисел, кратных 3.

Задать свой вопрос
1 ответ
Var t, rea, n, i: integer;
bigin
write (Сколько чисел будет введено : );
readln (n);
res: = 0;
for i:=1 to n do
Begin
write (Введите число ,i, : );
readln (t);
if (t mod 3= 0) and (t mod 10 =8) then res: = res+t;
end;
writeln (res);
end.
Конечные значения:
Введите число 1: 3
Введите число 2: 18
Введите число 3: 25
Введите число 4: 48
66
(Program exited with code: 0)
Press return to continue
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт