<h2>№2</h2>
Промежуточные значения n и s даны в приложении.
Ответ: 30.
<h2>№3</h2>
var n: integer;
begin
read(n);
if n mod 2=0 then n:=n div 4
else n:=n*5;
writeln(n);
end.
<h2>№4</h2>
var
x, y: integer;
begin
read(x);
if x > 5 then y := x * x - 1
else if x < -2 then y := 2 * x;
writeln(y);
end.
<h2>№5</h2>
var
i: integer;
pr: biginteger;
begin
pr := 1;
for i := 10 to 25 do
if i mod 2 = 1 then pr := pr * i;
writeln(pr);
end.
Ответ: 3) Секретное слово (ПАРОЛЬ)
ПАР
МОЛЬ => ОЛЬ
Если слева (внизу или вверху) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).
var i,x,y:integer;
b:boolean;
begin
readln(x,y);
for i:=2 to x do
if (x div i=x/i) and (y div i=y/i) then begin
x:=x div i;
y:=y div i;
end;
writeln(x,' ',y);
end.
Var
a: array[1..10] of integer;
i, p, s: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1; s:=0;
for i:=1 to 10 do
begin
p:=p*a[i];
inc(s, a[i]);
end;
writeln(s);
writeln(p);
<span>end.</span>