Составьте программу,выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3,но не делятся на 4
Составьте программу,выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3,но не делятся на 4
Гость
Ответ(ы) на вопрос:
Гостьvar i:integer;
a:array[1..30] of integer;
begin
for i:=1 to 30 do begin
readln(a[i]);
if(a[i]mod 2 =0)and(a[i]mod 3 =0)and (a[i]mod 4 <>0)then writeln(a[i]);
end;end.
Не нашли ответ?
Похожие вопросы