Задать вопрос
20 февраля, 09:17

Дано четырехзначное число. Вывести на экран каждую цифру отдельно

(программа pascal)

+1
Ответы (1)
  1. 20 февраля, 09:55
    0
    Var

    A:integer;

    Begin

    WriteLn ('Введите четырёхзначное число') ;

    ReadLn (A) ;

    WriteLn (A div 1000,' ', (A div 100) mod 10,' ', (A div 10) mod 10,' ', A mod 10) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано четырехзначное число. Вывести на экран каждую цифру отдельно (программа pascal) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы