Даны два числа. Если их значения не равны, то присвоить каждому сумму этих
значений, а если равны, то присвоить числам нулевые значения. Вывести новые значения A
и B .
Ответы
Ответ дал:
0
var a,b,c:integer;
begin
writeln('Введите 2 числа');
read(a,b);
if a=b then begin
a:=0;
b:=0;
end else
begin c:=a+b;
a:=c;
b:=c;
end;
writeln(a);
writeln(b);
end.
begin
writeln('Введите 2 числа');
read(a,b);
if a=b then begin
a:=0;
b:=0;
end else
begin c:=a+b;
a:=c;
b:=c;
end;
writeln(a);
writeln(b);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад