Ответы
Ответ дал:
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.
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.
Приложения:
![](https://st.uroker.com/files/81f/81f1e13b3c45b2551eb03fb8af1c3827.jpg)
Вас заинтересует
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
7 лет назад
7 лет назад