Написать программу на Turbo Pascal

[Suminara]

Написать программу на Turbo Pascal

Вот задание. Напишите пожалуйста, а то не доходит... Программа Турбо паскаль. Заранее спасибо.
Запишите условный оператор, в котором значение переменной с вычисляется по формуле: a+b, если а нечетное и a*b, если а четное.

 

[Vladimir_S]

Вот задание. Напишите пожалуйста, а то не доходит... Программа Турбо паскаль. Заранее спасибо.
Запишите условный оператор, в котором значение переменной с вычисляется по формуле: a+b, если а нечетное и a*b, если а четное.

Знаете, это, конечно безумно сложно. Но я всё-таки попытаюсь. А ну как получится?

Var
 a,b,c:WORD;
Begin
 ReadLn(a,b);
 If (a mod 2)=1 then c:=a+b else c:=a*b;
 Writeln(c);
 ReadLn;
End.

 

[Suminara]

Огромнейшее спасибо)