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

я так понимаю надо написать паскале

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.

 

ответ:

рынок информационных продуктов и услуг (информационные рынок) - система , правовых и организационных отношений по торговле продуктами интеллектуального труда на коммерческой основе.

информационный рынок характеризуется определенной номенклатурой продуктов и услуг, условиями и механизмами их предоставления, ценами. в отличие от торговли обычными товарами, имеющими материально-вещественную форму, здесь в качестве предмета продажи или обмена выступают информационные системы, информационные технологии, лицензии, патенты, товарные знаки, ноу-хау, инженерно-технические услуги, различного рода информация и прочие виды информационных ресурсов.

основным источником информации для информационного обслуживания в современном обществе являются базы данных. они интегрируют в себе поставщиков и потребителей информационных услуг, связи и отношения между ними, порядок и условия продажи и покупки информационных услуг.

// pascalabc.net 3.3, сборка 1541 от 29.09.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('введите 7 целых чисел: ',7);   write('положительные: '); a.where(x-> x> 0).println;   write('        нечетные: '); a.where(x-> x.isodd).println;   write('положительные, кратные 5: '); a.where(x-> (x> 0) and (x mod 5= end. пример введите 7 целых чисел: -5 6 21 15 -20 40 0 положительные: 6 21 15 40         нечетные: -5 21 15 положительные, кратные 5: 15 40