Ответы на вопрос:
Var a,b: integer; sum: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); if (a< > b) then begin a: =a+1; b: =b+1; writeln('числа не равны'); writeln('a= ',a); writeln('b= ',b); end; if (a=b) then begin sum: =a+b; sum: =sum*2; writeln('числа равны'); writeln('удвоенная сумма= ',sum); end; end.
Популярно: Информатика
-
alyaagafonova22.11.2020 00:49
-
mooncat126.05.2022 15:02
-
ycnakouc7oy2xua22.05.2023 01:25
-
Xieb21.02.2023 07:41
-
zinkovich9214.10.2022 11:59
-
mta12320.09.2022 05:09
-
hhhhh777702.03.2023 06:19
-
alina193220.08.2020 05:27
-
Джарият11105.03.2022 14:47
-
spanielskubidu124.10.2021 20:57