Ответы на вопрос:
Program ran; label main; var x, y, min, max, s, p, d: integer; begin randomize; writeln('ввод промежутка'); write('от: '); readln(min); write('до: '); readln(max); main: x : = min + random(max - min + 1); y : = min + random(max - min + 1); if not(x = y) then begin s : = x + y; writeln('сумма: ', s); p : = x * y; writeln('произведение: ', p); if p > s then begin d : = p - s; writeln('произведение больше суммы на ', d); end; end else begin writeln('случайные числа равны, повтор '); goto main; end; end.
Популярно: Информатика
-
danier223.12.2022 11:29
-
superg6474523.12.2020 04:00
-
Kristibabiba09818.05.2022 08:37
-
Brutal9407.08.2021 14:46
-
bessmertny6910.05.2020 12:27
-
danikru5625.12.2022 13:19
-
JennieBlackpink199627.08.2020 13:06
-
vladazheleznova0615.09.2022 18:39
-
Starfire23419.04.2021 01:46
-
кируськаномер114.11.2021 16:09