Меню сайта

Задача №8

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


Program if_8-

Var a,b:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

Writeln(‘Введите число’)-

Readln(b)-

If a&lt-&gt-b then

begin

a:=a+b-

b:=a-

end

else

begin

a:=0-

b:=0-

end-

Writeln(‘a=’,a)-

Writeln(‘b=’,b)-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 01.01.13

Меню раздела
Блок