Даны две переменные целого типа: a и b. если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. вывести новые значения переменных a и b.

DarknEssDk11 DarknEssDk11    3   19.06.2019 00:30    2

Ответы
Slavkamyroslavka Slavkamyroslavka  15.07.2020 12:46
Var a,b,c:integer;
begin
readln(a,b);
if a<>b then
begin
c:=a+b;
a:=c;
b:=c;
end
else begin
a:=0;
b:=0;
end;
writeln('a=',a,' b=',b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика