Лаврентьев 23 октября 2019 в 11:36
Написать программу:
Компьютер задумал целое положительное число, промежутки от 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.
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.
Для комментирования необходимо зарегистрироваться на сайте