Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
basovaolga67
11.03.2023 02:12 •
Информатика
Впаскале напечатать числа в виде следующей таблицы 0 6 5 4 3 2 1 0 5 4 3 2 2 1 0 4 3 2 3 2 1 0 3 2 4 3 2 1 0 2
Показать ответ
Ответ:
siolvermen2005
05.07.2020 21:49
var k, n, x, y, i: integer;
begin
k := 1;
n := 100000;
y := 65432;
for i := 0 to 4 do
begin
x := k * i + x;
k := k * 10;
y := y mod n;
n := n div 10;
writeln(x:1, ' ':8 - i, y)
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
1o10019soos
24.05.2023 20:10
Программа: replit.com. Усовершенствуйте игру, созданную на занятии. Добавьте цикл, в котором случайным образом будет генерироваться событие и выводиться в консоль. Возможные...
nadia182
06.04.2021 15:04
Дана логическая схема элемента компьютера, описываемая следующейлогической функциейF=(¬X^¬Y)|(¬Y^¬X) На вход подают последовательность сигналов от 000 до 111. На выходе...
kuzmichkinvale
11.05.2022 04:25
Как изменить ориентацию страницы ? Как изменить фон страницы ? inkscape...
irina72221976p092ek
24.06.2021 22:19
, ответьте на 2 вопроса + 3 (какое число получится, если уменьшить исходное число на ...
botuchenyy
19.04.2023 18:05
Напишите программу, которая ищет среди целых числовому отрезку [185457;185489]...
silverg2005p00xxj
06.04.2021 23:20
Информатика. Паскаль. Выбрать последовательность команд, меняющих местами две величины X и Y1. X := A; X := Y; A := Y2. A := X; X := Y; Y := A3. X := Y; Y := X4. X := Y5....
Aisuluuuuuuu
12.12.2020 03:36
№5. Вычислить значение функции: Переменная х меняется от -2 до 3 с шагом 0,5По фото в EXCEL...
casualsicp
29.06.2020 12:36
Перетворення значення рядкового типу в значення дійсного типу в середовищі програмування Lazarus здійснюється за до функції... Str TolntInt To StrFloat ToStrStrToFloat...
vikagalimzhano
03.06.2022 12:59
Определи ВЫходные данные. За один час первый рабочий собирает N пар обуви, второй рабочий собирает L пар, третий рабочий собирает Н пар. Сколько пар обуви S соберут они...
Лейла1994
16.05.2020 00:36
Приведите примеры не менее 3-х баз данных из различных предметных областей....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
k := 1;
n := 100000;
y := 65432;
for i := 0 to 4 do
begin
x := k * i + x;
k := k * 10;
y := y mod n;
n := n div 10;
writeln(x:1, ' ':8 - i, y)
end
end.