Предмет: Информатика,
автор: Endy
даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные
Ответы
Автор ответа:
0
я так понимаю надо написать Паскале
1uses crt;
2var a,b,c:real;
3 i:byte;
4 begin
5clrscr;
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);
14readln
15end.
Похожие вопросы
Предмет: Математика,
автор: Love57379
Предмет: Физика,
автор: Аноним
Предмет: Литература,
автор: didar8525
Предмет: Математика,
автор: 123456789alina
Предмет: Физика,
автор: n1ghTmArE