Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
По идеи 8
Объяснение:
я так понимаю надо написать паскале
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.
знаки той же арифметики, если эмоции- те же смайлики.
Популярные вопросы