Решаем задачи Абрамян на Паскале. If10

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

Решение:

program If10;

var

A, B: Integer;

begin

Write('Введите переменную A: ');

Readln (A);

Write('Введите переменную B: ');

Readln (B);

if A<>B then

begin

A:=A+B;

B:=A;

end

else

begin

A:=0;

B:=0;

end;

Writeln('Переменная A равна: ',A);

Writeln('Переменная B равна: ',B);

end.

Другие задачи из раздела If можно посмотреть здесь.

Комментарии 1

Bronislav

09.02.2018 в 21:42

var a,b:integer; begin readln(a,b); if a<>b then (a,b):=(a+b,a+b) else if a=b then (a,b):=(0,0); write(a,' ',b); end.

1
2
3
4
5
6
7

var a,b:integer;
begin
  readln(a,b);
  if a<>b then (a,b):=(a+b,a+b)
  else if a=b then (a,b):=(0,0);
  write(a,' ',b);
end.

Ответить

Решаем задачи Абрамян на Паскале. If10

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ