Question

Вывести все числа от 1 до 10000 оканчивающиеся на 8 и делящиеся на 3.
На Паскале

Answer 1

Ответ:

Объяснение:

Ядро программы такое :

Begin

Var i: integer

for i=1 To 10000

If (i mod 10 := 8) and (i mod 3 :=0) then write i & "; " ;

Next i;

End.

Команда mod выводит остаток от деления i на число.

Остаток от деления на 10 это последняя цифра.

Если остаток от деления на 3 равен 0, то число делится на 3.