Question

Помогите информатика 8 класс задачи паскаль

На вход дается шестизначное число. Если сумма первых трех цифр данного числа равна сумме трех последних цифр, вывести сообщение «Счастливый билет», иначе вывести «0».

Вводится некоторое число. Определить его длину (сколько цифр в данном числе) и найти сумму цифр данного числа.

Вводится некоторое число. Вывести данное число задом-наперед (в обратную сторону).

Answer 1

1.

var

 FirstSum, SecondSum, number:integer;

 NumString:string;

begin

 number:=ReadInteger('Введите число: ');

 Str(number, NumString);

 FirstSum:=StrToInt(NumString[1]) + StrToInt(NumString[2]) + StrToInt(NumString[3]);

 SecondSum:=StrToInt(NumString[4]) + StrToInt(NumString[5]) + StrToInt(NumString[6]);

 if (FirstSum = SecondSum) then

   write('Счастливый билет')

 else

   write('0');

end.

2.

var

 i, size, number, sum:integer;

 NumString:string;

begin

 sum:=0;

 number:=ReadInteger('Введите число: ');

 Str(number, NumString);

 size:=length(NumString);

 write('Длина числа: ', size);

 for i:=1 to size do

   inc(sum, StrToInt(NumString[i]));

 write(#10, 'Сумма цифр числа: ', sum);

end.

3.

var

 size, i, number:integer;

 SomeString:string;

begin

 number:=ReadInteger('Введите число: ');

 Str(number, SomeString);

 size:=length(SomeString);

 write('Число задом наперёд: ');

 for i:=size downto 1 do

   write(SomeString[i]);

end.