Даны две переменные целого типа:А и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
РАБОТАЕМ НА ПАСКАЛЬ АБС ЭТО ИЗ ЗАДАЧНИКА ПРИМЕР 10 РАЗДЕЛ ИФ
РАБОТАЕМ НА ПАСКАЛЬ АБС ЭТО ИЗ ЗАДАЧНИКА ПРИМЕР 10 РАЗДЕЛ ИФ
Answers & Comments
Ответ:
var
a,b: integer;
begin
readln(a,b);
if a = b then
begin
a:= 0;
b:= 0;
end
else
begin
a:= a+b;
b:=a;
end;
writeln(a);
writeln(b);
end.