Написать переменную для определения количества чисел кратных 3 и оканчивающихся ** 6....

Question

Написать переменную для определения количества чисел кратных 3 и оканчивающихся на 6. (Pascal)

Answer 1

Program Test;

const size = 5;

Var num, counter, i: integer, mas: array[1..size] of integer;

Begin

for i := 1 to size do
begin
Write('Введите ', i, ' число');
Readln(mas[i]);
end;

for i := 1 to size do
begin
if (mas[i] mod 3 = 0) and (mas[i] mod 10 = 6) then
counter := counter + 1;
end;

Writeln();
Writeln('Ответ: ', counter);

End.

---