Задать вопрос
25 декабря, 17:45

Определить из каких цифр состоит десятизначное число

Паскаль

программа + блок-схема

+1
Ответы (1)
  1. 25 декабря, 17:57
    0
    var n:integer;

    x1, x2, x3, x4, x5, x6, x7, x8, x9, x10:integer;

    begin

    read (n) ;

    x1:=n div 1000000000;

    x2:=n mod 1000000000 div 100000000;

    x3:=n mod 100000000 div 10000000;

    x4:=n mod 10000000 div 1000000;

    x5:=n mod 1000000 div 100000;

    x6:=n mod 100000 div 10000;

    x7:=n mod 10000 div 1000;

    x8:=n mod 1000 div 100;

    x9:=n mod 100 div 10;

    x10:=n mod 10 div 1;

    writeln ('1 = ', x1) ;

    writeln ('2 = ', x2) ;

    writeln ('3 = ', x3) ;

    writeln ('4 = ', x4) ;

    writeln ('5 = ', x5) ;

    writeln ('6 = ', x6) ;

    writeln ('7 = ', x7) ;

    writeln ('8 = ', x8) ;

    writeln ('9 = ', x9) ;

    writeln ('10 = ', x10) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Определить из каких цифр состоит десятизначное число Паскаль программа + блок-схема ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)
Паскаль программа 1) Программа загадывает случайное целое число из отрезка [1; 10] и просит пользователя его угадать, вводя варианты с клавиатуры, пока пользователь не угадает число, программа будет ему подсказывать, сообщая больше или меньше число
Ответы (1)
Что относят к утилитам? Экономическая информатика антивирусная программа программа архивации данных программа диагностики дисков операционная оболочка программа обслуживания сети операционная система
Ответы (1)
Расположите запросы в порядке возрастания количества страниц. а) учитель / журнал/программа б) (учитель/журнал) & программа в) учитель& программа г) учитель&журнал&программа
Ответы (1)