Предмет: Информатика, автор: khramtsova99

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

Ответы

Автор ответа: Banished
0
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.
Похожие вопросы
Предмет: Английский язык, автор: 87473228598tex
Предмет: Литература, автор: reginablazhenc