Написать код программы на языке Pascal, которая получая на вход 3 произвольных числа, выводит их на экран только те, которые делятся на 5. Если таких чисел нет, программа выводит надпись «нет чисел, делящихся на 5». Например, получая числа 3,10, -5 программа выводит: 10, -5
Answers & Comments
Ответ:
Объяснение:
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.