Question

Паскаль. С клавиатуры вводится натуральное число k. Напиши программу, которая выведет на экран в строчку через запятую все натуральные числа, не превышающие k, которые кратны 3.

Answer 1

var  

k,i:integer;

begin

write('Введите k: ');

readln(k);

for i:=3 to k do

  if i mod 3 = 0 then

    begin

    write(i);

    if (i<>k) and (i<>k-1) and (i<>k-2)

    then

      write(', ');

      end;

end.

Answer 2

Вот пример программы на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program MultiplesOfThree;

var
  k, i: integer;

begin
  // Вводим значение k с клавиатуры
  writeln('Введите натуральное число k:');
  readln(k);

  // Выводим числа, кратные 3, до k
  write('Числа, кратные 3, не превышающие k:');
  for i := 1 to k do
  begin
    if (i mod 3 = 0) then
      write(i, ', ');
  end;

  writeln; // Переводим строку после вывода чисел
  readln;
end.

Программа запрашивает у пользователя натуральное число k, а затем выводит все числа от 1 до k, которые являются кратными 3. Числа выводятся в строчку через запятую. Например, если пользователь вводит 10, программа выведет 3, 6, 9.

Обратите внимание, что код может отличаться в зависимости от используемого компилятора Паскаля.