Определите является ли число полным кратным 5

Question

Информатика: Определите является ли число полным кратным 5

Dasssshenka · Answer

var   a:real; begin   write( Введите число ); readln(a);   if (frac(a) = 0) and( trunc(a) mod 5 = 0) then     writeln( Число , a , кратно 5 )   else     writeln( Число , a , некратно 5 ) end.  ...

Определите является ли число полным кратным 5

Популярные вопросы