Число 123, так как оно больше 10 и нечетное.
Var
n,i:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
WriteLn('1)');
S:=0;
i:=2;
While i<=n do
Begin
S:=S+i*i;
i:=i+2;
End;
WriteLn('S = ',S);
WriteLn('2)');
Write(n);
i:=n div 2;
While i > 0 do
Begin
if n mod i = 0 then Write(' ',i);
i:=i-1
End;
End.
program zadanie;
var
a: array[1..10] of integer;
i, max: integer;
begin
randomize;
max:=-10;
for i:=1 to 10 do
begin
a[i]:=-10+random(91);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do if a[i]>max then max:=a[i];
for i:=1 to 10 do
begin
if a[i]>25 then a[i]:=max;
write(a[i]:3);
end;
writeln;
end.
Базовая эталонная модель OSI является концептуальной основой, определяющей характеристики и средства открытых систем. Она определяет взаимодействие открытых систем, обеспечивающее работу в одной сети систем, вьшускаемых различными производителями, и координирует:• взаимодействие прикладных процессов;• формы представления данных;• единообразное хранение данных;• управление сетевыми ресурсами;• безопасность данных и защиту информации;<span>• диагностику программ и технических средств.</span>
Раскрой скобки и переверни знак. получится, что 2 ответ правильный, но я не уверен на 100\%