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

Suminara · 23.12.2010, 16:34

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

Vladimir_S · 23.12.2010, 16:45

Цитата:

Сообщение от Suminara

Вот задание. Напишите пожалуйста, а то не доходит... Программа Турбо паскаль. Заранее спасибо.
Запишите условный оператор, в котором значение переменной с вычисляется по формуле: 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 · 23.12.2010, 16:55

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

23.12.2010, 16:34	#1 (permalink)
Suminara Новичок Регистрация: 23.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Написать программу на Turbo Pascal Вот задание. Напишите пожалуйста, а то не доходит... Программа Турбо паскаль. Заранее спасибо. Запишите условный оператор, в котором значение переменной с вычисляется по формуле: a+b, если а нечетное и a*b, если а четное.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

23.12.2010, 16:34
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего проблема уже была решена ранее в других обсуждениях Помогите написать программу на PASCAL Нужно написать программу в Pascal Помогите, пожалуйста, написать программу в Turbo Delphi Cтек, Turbo Pascal Turbo Pascal. Оператор CASE

23.12.2010, 16:55	#3 (permalink)
Suminara Новичок Регистрация: 23.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромнейшее спасибо)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070