Var a,a1,a2,a3,a4;
begin
read (a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a div 10 mod 10;
a4:=a mod 10;
a:=a4*1000+a2*100+a3*10+a1;
write (a);
<span>end.</span>
A = int(input())
k = 0
while a != 0:
k = k+1
a = int(input())
print(k)
Пример:
15
87
60
45
73
0
15
47
5
1 символ 1728/864=2 байта
алфавит 32*2=64 байта
<span>7 больших желтых яблок
все груши большие значит яблок больших 32-17=15
всего плодов 25+17=42 из них 28 желтых значит зеленых 42-28=14
зеленых яблок на 2 больше чем зеленых груш значит яблок зеленых 8 а груш 6
зеленые яблоки все большие значит 15-8=7
ответ 7</span>
Var
a, b, alpha: <em>real;</em>
begin
writeln(<em>'Введите длины сторон и величину угла'</em>);
readln(a, b, alpha);
alpha := 0.5 * a * b * sin(alpha * pi / 180);
writeln(<em>'Площадь треугольника равна '</em> + alpha);
<span>end.</span>