Uses crt, math;
var n: extended;
var x: extended;
var s: extended;
var f: extended;
var t: extended;
begin
{ вводим значения }
writeln('Enter n:'); readln(n);
if n > 0 then begin
{ номер последовательности }
x := ceil((sqrt(1.0 + 4.0 { 8.0 } * n) - 1.0) / 2.0);
{ количество элементов всех последовательностей }
s := x + x*x;
{ s := s / 2; }
{ относительный номер элемента в последовательности }
f := x * 2 - (s - n);
if f <= x then begin
t := 1 + x - f;
end;
if f > x then begin
t := f - x;
end;
{ выводим результат }
writeln('t = ', t);
{ задержка }
readln(n);
end;
end.
program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
Y=73div8+4=9+4=13
y=13mod5+73=3+73=76
y=76+73*2=146+76=222
Ответ:222
Он называется авиабилетбольше названий у него нет!!!!!!!!!!