Question

С клавиатуры вводится натуральное число К. Напиши программу, которая выводит на экран (по одному числу в строке) числа от 1 до К, кратные 2 и 3, но не кратные 4.(паскаль)

Answer 1

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.

Answer 2

var k, i: integer;

begin

read(k);

for i := 1 to k do

begin

if ((i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0)) then

   writeln(i);

end;

end.