Продолжение архива вопросов Второй архив вопросов и ответов


Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 05.06.2011, 07:40
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Помогите пожалуйста,написать решение, не понимаю как пишутся формулы.Заранее очень благодарна 1.Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные.Код Pascaluses crt;var a,b,c:real;beginclrscr;writeln('Введите 3 действительных числа:');readln(a);if a>=0 then a:=a*a else a:=sqr(sqr(a));readln(b);if b>=0 then b:=b*b else b:=sqr(sqr(b));readln(c);if c>=0 then c:=c*c else c:=sqr(sqr(c));write('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);readlnend.
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Как написать простенький макрос в Excel Guest Новые вопросы и ответы 4 0 05.01.2012 10:37
Выложите программу Word Excel Guest Архив вопросов и ответов 0 30.09.2011 08:58
Подскажите, как написать макрос для Excel Guest Новый архив 2 0 29.09.2011 03:45



© www.otvetnemail.ru - Форум вопросов и ответов.