Срочно! Помогите пожалуйста!!!
Буду очень благодарна✨.
Заранее большое спасибо
135
470
Ответы на вопрос:
1. var a: integer;
begin
readln(a);
if a>=0 then
a:=a+1
else
a :=a;
writeln(a)
end.
2.var a: integer;
begin
readln(a);
if a>0 then
a:=a+5;
if a=0 then
writeln(0)
else
a :=a-1;
writeln(a)
end.
3.
var a,b: integer;
begin
readln(a);
readln(b);
if a>b then
writeln(a+b)
else
writeln(a*b);
end.
Объяснение:
Важно: в третьем числа вводить по одному
Популярно: Информатика
-
aguanapfel08.03.2020 01:31
-
Pro100870026.05.2023 11:35
-
Адриана11111111116.01.2023 20:52
-
Zhenyarishka114.06.2023 16:19
-
skilletsk16.12.2022 22:23
-
taush22.04.2021 16:06
-
Lenokguryhr06.12.2020 20:30
-
Ven8Kedy25.05.2020 18:04
-
Masha20060510.12.2022 21:29
-
poshel0naher08.11.2021 10:47