Помогите, программа не работает, нужно разложить 4-хзначное число на цифры

var a, a1, a2, a3, a4:integer;

begin

write ('vv ch') ;

read (a) ;

a1: = a/1000;

a2: = a/100 mod 10;

a3: = a/10 mod 10;

a4: = a mod 10;

write (a1, a2, a3, a4) ;

end.

где ошибка?!

Question

Информатика

Апраксин

13 декабря, 16:23

Помогите, программа не работает, нужно разложить 4-хзначное число на цифры

var a, a1, a2, a3, a4:integer;

begin

write ('vv ch') ;

read (a) ;

a1: = a/1000;

a2: = a/100 mod 10;

a3: = a/10 mod 10;

a4: = a mod 10;

write (a1, a2, a3, a4) ;

end.

где ошибка?!

+1

Ответы (2)

Знаете ответ на вопрос?

Нюня · Answer 1

Если я все правильно понял, нужно "/" заменить на div, т. к. вы используете тип integer.

Виктора · Answer 2

Я бы сделал так:

var a, a1, a2, a3, a4:integer;

begin

write ('Введите четырехзначное число: ') ; read (a) ;

a1: = a div 1000;

a2: = a div 100 mod 10;

a3: = a div 10 mod 10;

a4: = a mod 10;

writeln ('Первая цифра: ', a1) ;

writeln ('Вторая цифра: ', a2) ;

writeln ('Третья цифра: ', a3) ;

writeln ('Четвёртая цифра: ', a4) ;

end.

Этот вид более эстетичный;)