Предмет: История, автор: ekaterina58398

Каким был премьер-министр П.А.Столыпин, по - вашему мнению, «вешатель» или «либерал–реформатор»? Своё мнение аргументируйте.

Ответы

Автор ответа: zoryinochka

Либералреформатор. я так думаю

Похожие вопросы

Предмет: Информатика, автор: EliteFive

Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = n · n – 5 при n > 15
F(n) = n · F(n+2) + n + F(n+3), если n  15
Чему равна сумма цифр значения функции F(1)?

5 лет назад

Предмет: Физика, автор: fifchik777

Тело движущееся со скоростью 1 м/с, приобретает ускорение 10 см/с2. Чему равна конечная скорость тела на этом участке движения, если его длина составляет 6,25?

5 лет назад

Предмет: Английский язык, автор: Аноним

сложить диалог на тему meteeng people is first time. даю 50 так что пожалуста помогите

5 лет назад

Предмет: Информатика, автор: darino4kaaaaa

Задача

У продавца воздушных шариков есть N шаров. Каждый из них имеет некоторый цвет. Однако совсем недавно Три Толстяка издали указ, разрешающий торговать шариками какого-то одного цвета. Чтобы не нарушать закон, но при этом и не потерять прибыль, продавец решил перекрасить некоторые из своих шариков.

Напишите программу для определения минимального количества перекрашиваний.

Входные данные

В первой строке входного файла задано количество шариков N (1 ≤ N ≤ 100000). Вторая строка состоит из N целых чисел, в пределах от 1 до 9, определяющие цвета шариков (1 - синий, 2 - зеленый, 3 - голубой, 4 - красный, 5 - розовый, 6 - желтый, 7 - серый, 8 - черный, 9 - белый).

Выходные данные

В единственную строку выходного файла выведите минимальное количество шариков, которое необходимо перекрасить, чтобы все шарики были одного цвета.

Мой код на паскале. Где ошибка? Помогите пожалуйста.
Program ex2;
var a:array[1..9] of integer;
n,k,i,max,b,h,t:integer;
Begin
writeln('введите количество шариков');
readln(n);
write('введите номер цвета шарика через пробел');
read(k);
case k of
1: writeln('Синий');
2: writeln('Зелёный');
3: writeln('Голубой');
4: writeln('Красный');
5: writeln('Розовый');
6: writeln('Жёлтый');
7: writeln('Серый');
8: writeln('Чёрный');
9: writeln('Белый');
end;
procedure init;
var i,t:integer;
begin
readln(h)
for i:=1 to h do
begin
read(t);
(a[t]):=(a[t]+1);
end;
end;
for i:=1 to max do
a[i]:=0;
init;
max:=a[1];
for i:=2 to 9 do
if a[i]>max then max:=a[i];
b:=n-max;
writeln (b);
end;
end.

9 лет назад

Предмет: Литература, автор: gtnhjczy19

Рассказ "Обломов" написать взгляды обломовцев на жизнь!!! Помогите!!

9 лет назад