Задать вопрос
5 июля, 12:43

В теме информатика никто не помогает

помогите, программа не работает, нужно разложить 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.

где ошибка?!

+2
Ответы (1)
  1. 5 июля, 16:10
    0
    Во-первых ты объявил переменные 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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В теме информатика никто не помогает помогите, программа не работает, нужно разложить 4-хзначное число на цифры var a, a1, a2, a3, ...» по предмету 📗 Математика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы