Составьте программу выводящую на экран числа от 1 до 30 которые…

Question

Составьте программу выводящую на экран числа от 1 до 30 которые делятся без остаткак на и на 3 но не делятся на 4

Answer 1

51

smok07

08 февраля 2023

Var a,b,c,n,i: integer; begin writeln ('На что должно делиться (2 числа через пробел) => '); readln (a,b); {делится на а и b но не делится на c} writeln ('На что не должно делиться (1 число) => '); readln (c); writeln ('Верхняя граница (1 число) => '); readln (n); for i: =1 to n do if (i mod a=0) and (i mod b=0) and (i mod c <> 0) then writeln (i); end.var i: integer; begin for i: =1 to 30 do if (i mod 2=0) and (i mod 3=0) and (i mod 4 <> 0) then writeln (i); end2) var i: integer; begin for i: =50 downto 1 do if (i mod 2 <> 0) then writeln (i); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: