Втаблице запросы к поисковому серверу. расположите обозначения запросов в порядке убывания количества - id848264720230302 от санёк1234567817626 02.03.2023 01:35

Question

Информатика: Втаблице запросы к поисковому серверу. расположите обозначения запросов в порядке убывания количества страниц,которые найдет поисковый сервер по каждому запросу a) спорт/футбол b) спорт/футбол/петербург/зенит c) спорт/футбол/петербург d) спорт& футбол& петербург& зенит

санёк1234567817626 · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

//For

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
for i:=1 to 5 do
begin
   readln(ar[i]);
   r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.

//while

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
while i<>5 do
begin
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
end;
r:=r/i;
writeln(r);
end.

//repeat

Var
ar:array[1..5] of integer;
i:integer;
r:real;
begin
repeat
   i:=i+1;
   readln(ar[i]);
   r:=r+ar[i];
until i=5;
r:=r/i;
writeln(r);
end.

Пример ввода:
1
2
1
2
1
Пример вывода:
1.4

MOGZ ответил