1)8байтов;56 бит
2)5байтов;40битов
3)9байтов;72бита
4)12байтов;96битов
<span>Вчера решал 238 вышло, могу ошибаться..
</span>
var n:integer;
function f(x:integer):real;
begin
if x=1 then f:=1 else f:=x+f(x-1);
end;
begin
write('Введите число N ');
readln(n);
write('сумма равна ',f(n));
end.
лови бро затупил
7 937 082 20 07 киви
Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
Я не уверен но по моему так
1) 1 2 2 3 3 4 4 7 8 8
2) 2 5 3 4 7 6 8 10 11 9 12
извини дальше понять не могу( та и с этим неуверен