Ответы на вопрос:
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.
Популярно: Информатика
-
Карина220322.04.2022 12:34
-
Синтол21.06.2020 21:12
-
Anastasya15626.01.2020 03:39
-
barashinaa8826.05.2020 18:44
-
ibrashovo06.01.2022 18:23
-
айдын2307.05.2021 06:55
-
Danfdffefd11.04.2020 19:56
-
Ozeplay28.08.2022 18:13
-
Nicner12010.09.2020 22:13
-
midman21.03.2020 06:43