Составить программу:даны 3 целых числа x,y,z вывести на экран те из них которые являются кратными 5
Answers & Comments
noscope359
Var x,y,z:intefer; begin writeln('Vvedite 3 chisla'); readln(x,y,z); if (x mod5=0) then writeln(x); if (y mod5=0) then writeln(y); if (z mod5=0) then writeln(z); end.
Answers & Comments
begin
writeln('Vvedite 3 chisla');
readln(x,y,z);
if (x mod5=0) then writeln(x);
if (y mod5=0) then writeln(y);
if (z mod5=0) then writeln(z);
end.