Вывести все числа от 1 до 10000 оканчивающиеся на 8 и делящиеся на 3.
на Паскале, программа полностью.
JKloveIU:
Это долгооо писать
Ответы
Ответ дал:
1
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад