Предмет: Информатика,
автор: khramtsova99
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Математика,
автор: lostbro688
Предмет: Английский язык,
автор: 87473228598tex
Предмет: Немецкий язык,
автор: danikpish
Предмет: Математика,
автор: shlyapa005
Предмет: Литература,
автор: reginablazhenc