Написать программу: Компьютер задумал целое положительное число, промежутки от 0 до 100....

Question

Написать программу:
Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.

Answer 1

Program prog;
Uses crt;

var a: integer;

Begin
Clrscr;
Randomize;

a:=random(101);
writeln('Число a = ', a);
if (a mod 5)=0 then
   writeln('Число кратно 5')
   else
   write('Число не кратно 5');
   readln;
end.