Вывести все числа от 1 до 1 оканчивающиеся на 8 и делящиеся на 3.
на паскале, программа полностью.

ruslan5632 ruslan5632    2   12.08.2019 11:25    3

Ответы
bgdadanilenko20 bgdadanilenko20  04.10.2020 13:18

var a:integer;

begin

for a:=1 to 10000 do

begin

if (a mod 10 =8)and(a mod 3 =0) then writeln(a);

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика