USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
WriteLn('Vvedite nomer bileta: ');
ReadLn(n);
m1:=n div 1000;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
s1:=n1+n2+n3;
m2:=n mod 1000;
n4:=m2 div 100;
n5:=m2 mod 10;
n6:=(m2-n4*100-n5) div 10;
s2:=n4+n5+n6;
if s1=s2 then WriteLn('Bilet schaslivyi')
else WriteLn('Bilet ne schaslivyi');
ReadLn
END.
N=int(input())
<span>a= N*4 + 8*(N//2 - 1) </span>
<span>print(a)
</span>Вот, выбирай язык - Питон
На паскале неполное решение отвечает
Ответ:
Объяснение: в А до тех пор пока Х не будет меньше нуля. в Б до тех пор пока Х не будет больше нуля
Var xa,ya,xb,yb:real;
begin
read(xa,ya,xb,yb);
writeln(sqrt(sqr(xa-xb)+sqr(ya-yb)):1:1);
<span>end.</span>