Регистрация
Александра123451111
15.08.2022 19:21
Математика
Есть ответ 👍

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

161
266
Посмотреть ответы 2

Ответы на вопрос:

yankim14
yankim14
4,6(81 оценок)
Во-первых ты объявил переменные 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.
jeniakovaleva56
jeniakovaleva56
4,7(32 оценок)
Число которое делится и на 9, и на 5: 1) 103590

Популярно: Математика