Question

Даны числа A и B . Заменить число А на противоположное, а B уменьшить на 2,если числа равны.(ЗАПИСАТЬ НА ЯЗЫКЕ КУБЕСИК)

Answer 1

Код Pascal
1 if a>b then
2 begin
3c:=a+b;
4 b:=a*b;
5  a:=c;
6 end
7 else
8 begin
9 c:=a+b;
10 a:=a*b; 
11   b:=c
12   end;