Регистрация
00101827
11.03.2021 21:03
Информатика
Есть ответ 👍

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M[i]:=0;
For i:=1 to 365 do Inc(M[D[i]]);
Min:=1;
For i:=2 to 8 do
If M[i] Case Min of
1 : Writeln('С южной стороны от комбината');
2 : Writeln('С северной стороны от комбината');
...
8 : Writeln('С северо-западной стороны от комбината');
End;
переведите на C++, буду признателен

194
293
Посмотреть ответы 1

Ответы на вопрос:

polinaa6
polinaa6
4,6(67 оценок)
6дисков так как 4 gb =4096 mb то 4096: 700=~5.85 округляем в большую сторону и = 6

Популярно: Информатика