72

Даны три действительных числа

asannia 10 сентября 2019

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные

категория: информатика

64

Я так понимаю надо написать Паскале 1uses crt; 2var a,b,c: real; 3 i: byte; 4 begin5clrscr; 6writeln ('Введите 3 действительных числа: '); 7readln (a); 8if a>=0 then a: =a*a else a: =sqr (sqr (a); 9 readln (b); 10if b>=0 then b: =b*b else b: =sqr (sqr (b); 11readln (c); 12if c>=0 then c: =c*c else c: =sqr (sqr (c); 13write ('a=',a: 0:2,' b=',b: 0:2,' c=',c: 0:2); 14readln15end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...