Question

Составить в тетради программу на языке Паскаль на задачу: Определить среди 3-х случайно введенных чисел те, которые НАЦЕЛО ДЕЛЯТСЯ на 7. Вывести эти числа на экран.

Answer 1

Решение представлено во вложении.

Язык: Pascal

Answer 2

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

pascalCopy code
program DivideBySeven;

var
  number1, number2, number3: integer;

begin
  writeln('Введите три случайных числа: ');
  readln(number1, number2, number3);

  writeln('Числа, которые делятся на 7 нацело: ');

  if number1 mod 7 = 0 then
    writeln(number1);
  
  if number2 mod 7 = 0 then
    writeln(number2);
  
  if number3 mod 7 = 0 then
    writeln(number3);

  readln;
end.

В этой программе пользователь вводит три случайных числа, затем программа проверяет каждое из них на делимость на 7. Если число делится нацело на 7, оно выводится на экран.