Ответы на вопрос:
ответ
пишу на PascalABC
Объяснение:
var
a, b: integer;
begin
Writeln('Введите а '); Read(a);
Writeln('Введите б '); Read(b);
if a > b then
begin
a := (a mod b) * 2;
writeln('Выражение со значемем "а" равно: ', a)
end
else
begin
b := b * b - 4 * a;
writeln('Выражение со значемем "b" равно: ', b)
end;
end.
Популярно: Информатика
-
Наташа251127.03.2021 12:30
-
natalicharry18.05.2021 21:29
-
konotopnastya09.07.2022 12:37
-
isaevavika12.02.2021 14:26
-
bubisolha112.06.2021 03:38
-
samikby25.04.2021 10:20
-
Авангард1308.09.2022 20:19
-
Laurahsnbrg03.10.2022 09:33
-
piece0fcake08.02.2020 11:27
-
Санжик70706.03.2023 13:56