Question

Напишите программу нахождения первых k чисел,кратных трем
на языке паскаль

Answer 1

Ответ:

var k, i: integer;

begin

 readln(k);

 for i:=1 to k do

   if i mod 3 = 0 then write(i, ' ');

end.

Объяснение:

Программа напишет все числа кратные 3 до k