Написать программу: Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.
Написать программу:
Компьютер задумал целое положительное число, промежутки от 0 до 100. Определить кратно ли оно 5.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы