Question

Паскаль. 8 класс. Даны 4 числа. Узнать, есть ли среди них числа, кратные трём. Пожалуйста!

Answer 1

Ответ:

program zadaca;

var

i:integer;

a:real;

begin

for i:=1 to 4 do

begin

Writeln('Введите число √',i);

Readln(a);

if a/3=trunc(a/3) then

Writeln('Число номер ',i,' со значением ',a:5:1,' кратно е трьом');

end;

readln;

end.

На фото результат программы (консоль) с любыми подобранными значениями.

Answer 2

Для решения данной задачи необходимо последовательно проверить каждое из четырех чисел на кратность трём. Для этого можно воспользоваться оператором "остаток от деления", обозначаемым в Pascal символом "%".

Пример кода на Pascal:

scssCopy code
var
  a, b, c, d: integer;
begin
  writeln('Введите 4 числа:');
  readln(a, b, c, d);

  if (a mod 3 = 0) or (b mod 3 = 0) or (c mod 3 = 0) or (d mod 3 = 0) then
    writeln('Среди введенных чисел есть числа, кратные трём.')
  else
    writeln('Среди введенных чисел нет чисел, кратных трём.');
end.

В этом примере переменные a, b, c и d являются целочисленными, а оператор mod возвращает остаток от деления на трёх каждого из чисел. Если хотя бы одно из чисел кратно трём, то выводится сообщение об этом, иначе выводится сообщение о том, что таких чисел нет.