Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.
Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write('x=');
Readln(x);
a := x;
s := a;
k := 3;
while k < 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln('s=', s:5:6);
Readkey;
end.
Вот код в документе, посмотри во влажении
Т.к. Нос& повторяется во всех запросах,то на него можно сократить(но только если &)
с=68
b+c=436
b+c+q+d+f=570
q+c+d+f-?
1)b=436-68=368
2)q+c+d+f=b+c+q+d+f - b=570-368=202
Ответ:202