Составьте программу, в которой у юзера запрашивают шестизначное число, а потом

Составьте программу, в которой у юзера запрашивают шестизначное число, а потом выводят в строку через промежутки по порядку его цифру.

Задать свой вопрос
2 ответа

program raf105;

var

 a:array[1..6] of integer;

 n,i: integer;

begin

 write('Введите шестизначное число: ');

 readln(n);

 a[1]:= n div 100000;

 a[2]:= (n div 10000) mod 10;

 a[3]:= (n div 1000) mod 10;

 a[4]:= (n div 100) mod 10;

 a[5]:= (n div 10) mod 10;

 a[6]:= n mod 10;

 write('Вывод: ');

 for i:= 1 to 6 do

   write(a[i],' ');

 end.

PascalABC 3.4.2

Один из примеров реализации на JS, Pascal:

Аринка Самарокова
Спасибо, а на pascal как будет смотреться?
Вячеслав Гейшин
Обновил. Как-то так.
Ротко Тимур
Благодарю
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт