Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>
Правильный ответ: =ЕСЛИ(B8<=4;B8*1000;4000+(B8-4)*750)
Х+у=61
у+а=94
а+х=53
складываем
2х+2у+2а=208
х+у+а=208\2
х+у+а=104
общее количество знакомых
тогда
х=98,104-98=6
у=150,150-104=46
а=130,130-104=26
6+46+26=78
человек есть знакомых общих
тогда ответ будет
104-78=26
Ответ-----26 человек
А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.