Ответы на вопрос:
var a: integer;
begin
a: =(random(90000)+10000);
writeln(a);
while a> 0 do
begin
write (a mod 10);
a: =a div 10
end
end.
Популярно: Информатика
-
юра98227.07.2020 11:59
-
lushayir09.05.2023 01:54
-
zhenyakulakova03.02.2023 05:45
-
4elo10008.05.2022 13:16
-
Kell50016.05.2022 04:05
-
настюха2099819.12.2021 23:17
-
dimabarabanov03.02.2023 10:57
-
oksiz7217.06.2023 05:01
-
BigBOSS228115.10.2021 21:24
-
ывывывывыв15.07.2021 02:10