1. Информатика
  2. Написать программу в pascal

Написать программу в pascal abc которая выводит 5 значное число и выполняет переворот этого числа

lholkina lholkina    2   03.10.2019 17:01    3

Ответы
botikalmas botikalmas  27.08.2020 12:15

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vika4634 Vika4634  16.12.2021 20:11
Переплітання проводів в витій парі: a.збільшує швидкість передачі даних b.зменшує електромагнітні наведення c.через велику вартість не застосовується...
999999апро 999999апро  16.12.2021 20:10
18. 2) данные, которые определяются по значениям других ячеек 1) данные, которые нельзя определить по другим ячейкам 3) основные данные 4все данные электронной таблицы...
Анастасия2007997 Анастасия2007997  19.07.2019 15:10
Напишите программу и блок-схему для нахождения произведения n чисел (использовать циклы до и пока)....
witherMarlen witherMarlen  15.08.2019 03:00
Заполните таблицу по образцу используя схему как подсказку внимание у кого есть п т то пишите...
мальвінка1 мальвінка1  03.03.2019 08:40
На каждый из 3 основных цветов приходится 2 бита, сколько кбайт займёт рисунок 512*128...
IvanWINNER IvanWINNER  25.07.2019 19:00
Напишите программу, которая заполняет массив размерностью 40 следующими данными: элемент №1-№5 - целыми числа, введенные пользователем элемент №6-№10 - случайными целыми...
msimaratp08h7f msimaratp08h7f  09.03.2019 11:10
Расстояние между двумя селами 48 км. из этих сел одновременно в одном направлении отправились два мотоциклиста. мотоциклист впереди ехал со скоростью 48 км/ч, мотоциклист...
Neznayka56000 Neznayka56000  09.03.2019 11:10
Через сколько секунд после старта ракета приобретает первую космическую скорость равную 7,9 если она будет двигаться с ускорением...
marinagrizhuk marinagrizhuk  09.03.2019 11:10
Составьте систему уравнений и решите: два тракториста за 4 дней обработали 48 га земли. первый тракторист за 2 дня обработал столько земли, сколько второй тракторист...
mrpirogoff2014 mrpirogoff2014  09.03.2019 11:10
Впитомнике вырастили 25.700 саженцев деревьев : саженцев яблони - 8.580, что на 4.210 меньше, чем саженцев вишни ; остальные-саженцы сливы. сколько саженцев слив было...

Популярные вопросы