Var
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.
1.
num = input()
num_rev = int(num[::-1])
print(max( int(num), num_rev ))
2.
num1 = int(input())
num2 = int(input())
num3 = int(input())
more_then_0 = 0
less_then_0 = 0
is_0 = 0
for i in [num1, num2, num3]:
if i > 0:
more_then_0 += 1
elif i < 0:
less_then_0 += 1
else:
is_0 += 1
if more_then_0 == 3:
print(num1 + num2 + num3)
elif less_then_0 == 2:
print(num1 * num2 * num3)
elif is_0 == 2:
print(0)
3. Не понял задание, напиши в комментариях, что именно нужно сделать, а я отредактирую ответ, и напишу решение
4.
kat1 = int(input())
kat2 = int(input())
gip = (kat1**2 + kat2**2)**0.5
S = kat1*kat2/2
P = kat1+kat2+gip
Какое задание????????????
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.