Написать программу в pascal abc которая выводит 5 значное число и выполняет переворот этого числа
166
299
Ответы на вопрос:
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.
Популярно: Информатика
-
Лизокккккек10.07.2021 00:04
-
блеск411.10.2020 13:39
-
Brot200718.02.2021 21:11
-
Cfgcyf17.06.2021 19:19
-
1qq05.10.2020 19:29
-
lНанамиТянl01.04.2020 13:19
-
Рита0Венес27.09.2021 20:11
-
Ліка200630.11.2020 05:30
-
Малая180613.07.2020 05:45
-
sergazinaaidana28.06.2022 18:03