Ответы на вопрос:
Var a,b,c: integer; begin writeln('введите 2 числа'); read(a,b); if a=b then begin a: =0; b: =0; end else begin c: =a+b; a: =c; b: =c; end; writeln(a); writeln(b); end.
Популярно: Информатика
-
АсяСокол03.05.2022 20:06
-
gukuwa0923.08.2020 19:21
-
levkim02.06.2023 01:34
-
Beleklera7501.06.2023 22:03
-
Hiipotatohihi27.02.2022 12:10
-
araratpashayan526.10.2021 02:56
-
ArtemDeineka07.04.2023 17:38
-
scorpziro06.01.2021 09:23
-
мэри11429.07.2022 06:02
-
Koley11218.05.2020 00:32