program test;
var sum, x: integer;
begin
sum:=0;
Var a, n, k, t, s:integer;
Bedin
Readln(n)
S:=0;
For i:=1 to n do
If i mod 2 =0 then
Begin
For t:=1 to i do
K:=k*t;
S:=s+k;
End;
Writeln(s);
End.
<u>Задание</u><u> </u><u>1</u>
1). 320-200 = 120
2). 120+50 = 170
Ответ: <em>170</em>
<u>Задание</u><u> </u><u>2</u>
1). 427-222 = 205
2). 405+50 = 255
Ответ: <em>2</em><em>55</em>
<u>Задание</u><u> </u><u>3</u>
1). 245+235 = 440
2). 440-120 = 360
Ответ: <em>360</em>
2-10
3-7
4-4
5-6
6-1
7-?
8-3
9-8
10-2
11-9