в теме информатика никто не помогает
5-9 класс
|
помогите, программа не работает, нужно разложить 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.
где ошибка!!!!????
во-первых ты объявил переменные 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.
Другие вопросы из категории
времени ученик
6 2 занимался уроками.
вдаое больше, чем фрезеровщиков.Сколько токарей нужно для завода?
Читайте также
-0,37 > -0,29
-5,24> -5,33
1<-2,1
-15,61 > -15,59
Почему мне никто не помогает!?..
так, чтобы рядом с ней никто не сидел. Какое наименьшеечисло гномов могло быть за столом? (Объясните, как должны были сидеть гномы и почему, если бы гномов было меньше, Белоснежка нашла бы стул рядом с которым никто не сидит).
Помогите пожалуйста! Очень вас прошу!
Турист прошел в первый день 3/8 всего намеченного пути. Причем до обеда он прошел 2/3 пути, пройденого за этот день. Какую часть всего намеченного пути прошел турист в первый день до обеда?
Пожалуйста помогите из одноклассников никто не знает!
,1066,1067)
помогите а я потом отблагодарю вас!