Предмет: Информатика, автор: alyonka9

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

Ответы

Автор ответа: Tlalok
0

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.

 

Похожие вопросы