Есть : подсчитать количество “счастливых” шестизначных автобусных билетов, т. е. таких, в номерах которых сумма первых трех цифр равна сумме трех последних. необходимо написать программу в делфи на pascal, используя при этом одномерный массив (или массивы). заранее : 3

Яне знаком особо с паскалем, но могу направить на путь истинный : b кароче.. подсчет количества: если билет счастливый count++; (все логично) но как определить счастливый ли билет: припустим у нас номер билета лежит в массиве: ticket, то if ((strval(ticket[0]) + strval(ticket[1] + strval(ticket[2])) == (strval(ticket[3]) + strval(ticket[4]) + strval( count++; strval - преобразовнаие из строки в число. string --> integer если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.

x=16

ответ: 16 этажей

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.