С клавиатуры вводится натуральное число К. Напиши программу, которая выводит на экран (по одному числу в строке) числа от 1 до К, кратные 2 и 3, но не кратные 4.(паскаль)
Ответ:
uses crt;
var k:integer;
begin clrscr;
writeln('Введите k');
read(k);
for i:=1 to k do
if (((i mod 2)=0) or ((i mod 3)=0)) and ((i mod 4)>0) then
writeln(i);
readkey;
end.
var k, i: integer;
begin
for i := 1 to k do
if ((i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0)) then
end;