Помогите информатика 8 класс задачи паскаль
На вход дается шестизначное число. Если сумма первых трех цифр данного числа равна сумме трех последних цифр, вывести сообщение «Счастливый билет», иначе вывести «0».
Вводится некоторое число. Определить его длину (сколько цифр в данном числе) и найти сумму цифр данного числа.
Вводится некоторое число. Вывести данное число задом-наперед (в обратную сторону).
Ответы
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.
![](https://st.uroker.com/files/0e7/0e7459e2b96018d8684296c922754df4.png)
![](https://st.uroker.com/files/b89/b894bed4e55654f1b9b6a85e2f57c6e5.png)
![](https://st.uroker.com/files/e6e/e6ef09b7ea64921c328270c9cb160e54.png)