Технический форум - Написать программу на Turbo Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Написать программу на Turbo Pascal (http://www.tehnari.ru/f41/t43759/)

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

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

Цитата:

Сообщение от Suminara (Сообщение 433606)

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

Код:

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.

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