Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Составить программу:даны 3 целых числа x,y,z вывести на экран те из них которые являются кратными 5

Ответ оставил Гость

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.