Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
<span>1
2
3
4
5
6
7
8
9
10
11
12
<span>uses crt;
var a,c,h,s,x:real;
begin
clrscr;
writeln('Введите длины большего основания, боковой стороны и высоты ');
writeln('равнобедренной трапеции:');
readln(a,c,h);
x:=sqrt(c*c-h*h);
s:=(a-x)*h;
write('Площадь=',s:0:2);
readln
end.</span></span>
<span>a = int(input('Введите кг яблок:'))
b = int(input('Введите цену этих кг:'))
k = int(input('Введите имеющиеся кг:'))
print(k/a*b)</span>
<span> общий алгоритмический метод для нахождения оптимальных решений различных задач оптимизации, особенно дискретной и комбинаторной оптимизации. По существу, метод является вариацией полного перебора с отсевом</span>
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>