Question

Составить в паскаль программу вывода на экран чисел кратных трём из 10 введённых чисел в компьютер​

Answer 1

Program kratni_trem;
var: array[1..10] of integer; i:integer
begin
For i:=1 to 10 do
read(a[i],’ ‘);

For i:=1 to 10 do
If a[i] mod 3=0 then write(a[i], ‘ ‘);
end.

Answer 2

Конечно, я могу предложить вам программу на языке Pascal, которая считывает 10 чисел с клавиатуры и выводит на экран те из них, которые кратны трём. Вот пример:

program NumbersDivisibleByThree;

var
  i, number: integer;

begin
  writeln('Введите 10 чисел:');
  
  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(number);
    
    // Проверяем, кратно ли введенное число трём
    if (number mod 3 = 0) then
      writeln('Число ', number, ' кратно трём.');
  end;
end.

Программа начинает с запроса ввода 10 чисел. Затем она входит в цикл от 1 до 10, считывает число с клавиатуры и проверяет, кратно ли оно трём с помощью оператора `mod`. Если число кратно трём, оно выводится на экран.