У заданому словнику знайти групи слів, які записані однаковими літерами і відрізняються лише їх порядком, - id1835828420201013 от nastya4431 13.10.2020 03:44

Question

Информатика: У заданому словнику знайти групи слів, які записані однаковими літерами і відрізняються лише їх порядком, тобто перестановкою, наприклад: “РАНОК” – КРОНА” (На С или С++, кто буду очень благодарен)

nastya4431 · Accepted Answer

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,n,k,i,j,s:integer;
begin
writeln('Количество учеников и количество оценок');
readln(n,k);
for i:=1 to n do begin
    for j:=1 to k do begin
      write('Ученик № ',i, ' оценка № ',j,' = ');
      readln(a);
      s:=s+a;
    end;
end;
println('Средняя оценка группы ',s/(n*k):6:3);
end.

Тестовое решение:
Количество учеников и количество оценок
3 3
Ученик № 1 оценка № 1 = 3
Ученик № 1 оценка № 2 = 4
Ученик № 1 оценка № 3 = 4
Ученик № 2 оценка № 1 = 5
Ученик № 2 оценка № 2 = 4
Ученик № 2 оценка № 3 = 4
Ученик № 3 оценка № 1 = 4
Ученик № 3 оценка № 2 = 3
Ученик № 3 оценка № 3 = 3
Средняя оценка группы 3.778

MOGZ ответил