Question

Написать код программы на языке Pascal, которая получая на вход 3 произвольных числа, выводит их на экран только те, которые делятся на 5. Если таких чисел нет, программа выводит надпись «нет чисел, делящихся на 5». Например, получая числа 3,10, -5 программа выводит: 10, -5

Answer 1

Ответ:

Объяснение:

program n_05;

   var a, b, c, f: integer;

begin

   f:=0;

   writeln ('Программа поиска делящихся на 5 чисел');

   write ('Введите три произвольных числа >>');

   readln (a,b,c);

   if (a mod 10 in [0,5]) then

       begin

           writeln (a);

           f := 1;

       end;

   if (b mod 10 in [0,5]) then

       begin    

           writeln (b);

           f := 1;

       end;

   if (c mod 10 in [0,5]) then

       begin

           writeln (c);

           f := 1;

       end;

   writeln ('f',f);

   if (f=0) then

       writeln('нет чисел, делящихся на 5');

end.

Неизящно. Может быть кто-то предложит вариант лучше без флажков или без if.

Answer 2

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

pascalCopy code
program DivideByFive;

var
  num1, num2, num3: integer;

begin
  writeln('Введите три произвольных числа:');
  readln(num1, num2, num3);
  
  if (num1 mod 5 = 0) then
    write(num1, ', ');
  if (num2 mod 5 = 0) then
    write(num2, ', ');
  if (num3 mod 5 = 0) then
    write(num3, ', ');
  
  if (num1 mod 5 <> 0) and (num2 mod 5 <> 0) and (num3 mod 5 <> 0) then
    writeln('Нет чисел, делящихся на 5')
  else
    writeln;
end.

Эта программа сначала запрашивает у пользователя ввод трех произвольных чисел, а затем проверяет каждое из них на делимость на 5 с помощью оператора mod. Если число делится на 5, оно выводится на экран. Если нет ни одного числа, которое делится на 5, программа выведет "Нет чисел, делящихся на 5".