Var n, amount, max_digit, copy_of_n: integer;
begin
read(n);
copy_of_n := n;
amount := 0;
max_digit := copy_of_n mod 10;
while copy_of_n <> 0 do
begin {Находим наибольшую цифру в числе}
if max_digit < copy_of_n mod 10
then
max_digit := copy_of_n mod 10;
copy_of_n := copy_of_n div 10;
end;
copy_of_n := n;
while copy_of_n <> 0 do {Считаем количество таких цифр}
begin
if copy_of_n mod 10 = max_digit
then
amount := amount + 1;
copy_of_n := copy_of_n div 10;
end;
writeln(amount);
<span>end.</span>
Киттикрот -> китти р т
Можно просто проделать те же самые действия самостоятельно)
Просто подставляем
Для начала узнаем А4, где написанно, что оно равно B1+B2=1+2=3
A4=3
A1=A4-B1=3-1=2
A2=A1+2=2+2=4
A3=A2+B1=4+1=5
Соответствующая таблица находится под номером 3
Ответ: 3
Я думаю, что имеется в виду среднее по значению
Pascal :
var arr : array[0..2] of integer; { если числа целые }
i, j, t : integer;
begin
read(arr[0], arr[1], arr[2]);
// самый простой способ - это отсортировать массив
// в данном случае можно использовать сортировку "пузырьком"
for i := 0 to 2 do<span>
for j := 0 to 2 do
if arr[ j ] > arr[ j + 1]
begin
t := arr[ j ];
arr[ j ] := arr[ j + 1];
arr[ j + 1 ] := t;
end;</span><span>
//Конечно, среднее по значению число будет храниться в элементе arr[1]
writeln(arr[1]);
end.
На случай, если в учебнике просят среднее арифметическое, понятно, что нужно просто вывести ( arr[0] + arr[1] + arr[2] ) / 3
Если есть какие-то вопросы, то можете написать личное сообщение</span>
Я надеюсь эти задачи не 8 мого класса, т.к я сдаю информатику, но мы ничего подобного ещё не решали, но я решу 1 задачу, по этому примеру можно решить остальные.
Для начала найдём сколько бит весит файл в 160Кбайт: 1310720 бит
Дальше найдём сколько времени нужно для передачи этого файла: 1310720 : 2048 = 640 сек
Потом находим сколько бит передаётся по новому кабелю: 640×768=491520 бит
И переводим биты в Кбайты: 491520:8 потом делим на 1024=60 Кбайт