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

Answer 2

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

pascalCopy code
program MultiplesOfThree;

var
  k, i, count: Integer;

begin
  Write('Введите количество чисел (k): ');
  Readln(k);

  Write('Первые ', k, ' чисел, кратных трем: ');

  count := 0;
  i := 1;

  while count < k do
  begin
    if i mod 3 = 0 then
    begin
      Write(i, ' ');
      Inc(count);
    end;

    Inc(i);
  end;

  Readln;
end.

Эта программа запрашивает у пользователя количество чисел k, которые нужно найти, и затем выводит первые k чисел, кратных трём. Каждое найденное число будет выводиться через пробел на экран.