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.