program pr1;
var a,b integer;
begin
readln(a,b);
if (a<>b) then
begin
a=a+b;
b=a;
end
else
begin
a=0;
b=0;
end;
writeln("a=",a," b= ",b);
end.
Задача на паскале(использование оператора условия).
Помогите решить 2 задачи: Даны 2 переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулёвые значения. Вывести значения.
Надеюсь на помощь. Заранее спасибо!
[COLOR="Red"]Читай Правила раздела Студентам.Измени название темы.Для каждой задачи создавай свою тему.[/COLOR]модератор.
Надеюсь на помощь. Заранее спасибо!
[COLOR="Red"]Читай Правила раздела Студентам.Измени название темы.Для каждой задачи создавай свою тему.[/COLOR]модератор.
Так и хочется на C написать :) Тебе нужен полный код программы или часть которая делает нужные операции?
вариант без буферной переменной:
вариант попроще с буферной переменной
Код:
program pr1;
var a,b real;
begin
readln(a,b);
if (a>b) then
begin
a=a+b;
b=a-b;
a=a-b;
end;
end.
var a,b real;
begin
readln(a,b);
if (a>b) then
begin
a=a+b;
b=a-b;
a=a-b;
end;
end.
вариант попроще с буферной переменной
Код:
program pr1;
var a,b,c real;
begin
readln(a,b);
if (a>b) then
begin
c=a;
a=b;
b=c;
end;
end.
var a,b,c real;
begin
readln(a,b);
if (a>b) then
begin
c=a;
a=b;
b=c;
end;
end.
Небольшая поправка - присваивание в паскале пишется ":="