В интервале от 10 до 20 найти все числа,которые делятся на 3 без остатка.Паскаль.
В интервале от 10 до 20 найти все числа,которые делятся на 3 без остатка.Паскаль.
Гость
Ответ(ы) на вопрос:
Гостьprogram abc;
var x,i:integer;
begin;
for x:=10 to 20 do
if x mod 3 = 0 then writeln (x);
end.
Не нашли ответ?
Похожие вопросы