Ответы на вопрос:
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('обе тётки болтают с одинаковой эффективностью'); end.
Популярно: Информатика
-
Юлия2003424.03.2022 03:15
-
MakkDuo02.09.2021 10:27
-
manazoid09.03.2022 16:48
-
rayl222.09.2022 13:29
-
Эндирионэля23.06.2023 08:01
-
makhovak00718.08.2021 06:43
-
artem86126.01.2022 00:32
-
Lenusea1024.02.2022 20:30
-
ksyxa9221.01.2023 10:10
-
vladsimonenko428.01.2023 09:51