Для игры хотят разделиться на команды так, чтобы у любого все его друзья были с ним в команде. на какое наибольшее количество команд смогут разделиться? ниже информация о том, кто с кем дружит. в качестве ответа укажите одно целое число.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a,b,sgn:integer; var aa,bb,ap,bp:BigInteger; var s:string:=''; Write('Введите числитель и знаменатель дроби: '); Read(a,b); var n:=ReadInteger('Ввведите показатель степени:'); if n=0 then WritelnFormat('({0}/{1})^0 = 1',a,b) else if (a=0) and (b<>0) then WritelnFormat('(0/{0})^{1} = 0',b,n) else begin if a*b<0 then s:='-'; aa:=abs(a); bb:=abs(b); ap:=1; bp:=1; if n>0 then for var i:=1 to n do begin ap*=aa; bp*=bb end else for var i:=1 to -n do begin ap*=bb; bp*=aa end; if bp=1 then WritelnFormat('({0}/{1})^{2} = {3}{4}',a,b,n,s,ap) else WritelnFormat('({0}/{1})^{2} = {3}{4}/{5}',a,b,n,s,ap,bp) end end.
Объявим переменные нужные, обязательно обнулим переменную count(все переменные целочисленные)
1. Организация заполнения двумерного массива.(Из файла, руками, в исходном коде, как угодно) 2. Первый цикл от 0 до i(кол-во строк массива) 3. Внутри первого цикла еще один цикл от 0 до j(кол-во столбцов) 4. Внутри второго цикла делаем проверку вида if (mass[i,j] == X) then count = count + 1 5. Теперь когда все итерации будут пройдены, переменная count будет содержать значение равное кол-во элементов со значением X 6. Делаем вывод это значения.
Команда№1 : Вася, Катя, Света, Паша, Женя, Ира
Команда№2 : Петя, Маша, Саша, Оля