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

193

384

Посмотреть ответы 3

Ответы на вопрос:

neznayka1900

Информатика

4,4(80 оценок)

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); end 2) var i: integer; begin for i: = 50 downto 1 do if (i mod 2 < > 0) then writeln(i); end.