Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
botovaov
27.10.2020 21:36 •
Информатика
Вывести на экран в pascal abc с цикла (три разные ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5
Показать ответ
Ответ:
ggdfjfxxglvx
03.10.2020 09:33
Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.
program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.
program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
arinuchik
14.02.2021 01:46
Постройте правильные заключения: год состоит из 365 или 366 дней. 1995 год не состоит из 366 дней. сколько дней в 1995 ....
Infasotka41
30.01.2023 18:24
Вычислите число Y по формуле Y=X:500, где X=2028. Для полученного числа Y найдите мантиссу и порядок....
ivanvasilionov
03.04.2022 21:06
Переведите двоичное число 1110001 в десятичную систему счисления...
NarkoBaronTif
03.04.2022 21:06
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 40 строк, в каждой строке 40 символов. определите обьём статьи в кодировке windows 1251 в которой...
5678998765
10.11.2022 19:31
Имеется IP-сеть 223.224.201.0. Системный администратор Чебурашка по заданию Главного администратора Геннадия ака Крокодил разделил сеть на части. По регламенту назначения...
dsefanova
09.03.2022 19:33
Сочинение на тему безопасность на водоемах зимой...
garvarrd
09.03.2022 19:33
Церковная община должна пользоваться правом , кто сказал?...
натали524
09.03.2022 19:33
За три дня турист км. во второй день он на 10км меньше, чем в первый день, а в третий 0,8 того, что в первый и во второй день вместе. сколько км проходил турист каждый день?...
никкки228
09.03.2022 19:33
На луче с началом в точке a отмечены точки b и c. известно ,что ab 10,3 , bc=2.4cm. какую длину может иметь отрезок abc?...
46hitman46
09.03.2022 19:33
Применяя определение разности, проверьте, верно ли равенство: а) +28-(+9)=14 б) -)=1 в)+7-(+12)= -5 г)-12-(+1)= -11...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.
program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.
program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.