Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Способ Б конечно быстрее будет и в зависимости какая скорость передачи между ПК. А так ну допустим Б10.
История : Великая отечественная война длилась с 1941 по 1945, а вторая мировая - с 1939 по 1945.
География : Луна спутник Земли, на Марсе нету жизни.
Из биологии: У человека одно сердце, без него он не может жить
Из математики: 2*2 = 4, на нуль делить нельзя
Из литературы: Пушкин погиб на дуэли, Лермонтов написал Бородино
Из информатики: За компьютером кушать нельзя, трогать провода нельзя
Пусть дана матрица А размером n x n.
Обнуляем переменную s, в которой будет накапливаться сумма элементов главной диагонали и переменную k, в которой будет накапливаться количество отобранных элементов.
В цикле для i от 1 до n повторяем следующее действие:
- если значение А[i,i]>0, то добавляем его в s и увеличиваем k на единицу.
Когда цикл завершится, найдем среднее арифметическое как s/k.
8=i^2, значит 1 символ весит 3бита
3*32=96бит