В теме информатика никто не помогаетпомогите, программа не работает, нужно разложить...

Question

В теме информатика никто не помогает
помогите, программа не работает, нужно разложить 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.
где ошибка!!!!????

Answer 1

Во-первых ты объявил переменные a1,a2 и т.д. как целые, а для целых чисел в паскале не определена операция "/" - деления. Для них определена операция div - целочисленное деление, вот собственно и все, если заменить то твой код работает:
var a,a1,a2,a3,a4:integer;
begin
write ('vv ch');
read (a);a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
write (a1,a2,a3,a4);
end.

Comments

Спасибо огромное!

---

Всегда пожалуйста, надеюсь ты будешь и впредь хорошо учиться ;)