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

var a,b,c: integer;

 

begin

write('введите a = ' ); readln(a);

if a> =0 then a: =sqr(a) else a: =sqr(a*a);

write('введите b = ' ); readln(b);

if b> =0 then b: =sqr(b) else b: =sqr(b*b);

write('введите c = ' ); readln(c);

if c> =0 then c: =sqr(c) else c: =sqr(c*c);

writeln('a = ',a,' b = ',b,' c = ',c);

end.

Var i,a: integer; s: real; begin     for i: =1000 to 3000-1 do            if (i mod 6=0)and(i mod  10=4)then             begin               write(i,'   '); {это чтобы посмотреть на числа,  эту строку можно убрать}               s: =s+i;             end; writeln; writeln('s=  ',s); end.

Uses crt; var   x,y: real; begin   clrscr;   x: =0;   while x< =3.8 do   begin         y: =sqrt((1/2*x-1)+2);         writeln(x: 3: 1,'  ',y: 10: 8);         x: =x+0.1   end;   readkey end. результат выполнения программы: 0.0  1.00000000 0.1  1.02469508 0.2  1.04880885 0.3  1.07238053 0.4  1.09544512 0.5  1.11803399 0.6  1.14017543 0.7  1.16189500 0.8  1.18321596 0.9  1.20415946 1.0  1.22474487 1.1  1.24498996 1.2  1.26491106 1.3  1.28452326 1.4  1.30384048 1.5  1.32287566 1.6  1.34164079 1.7  1.36014705 1.8  1.37840488 1.9  1.39642400 2.0  1.41421356 2.1  1.43178211 2.2  1.44913767 2.3  1.46628783 2.4  1.48323970 2.5  1.50000000 2.6  1.51657509 2.7  1.53297097 2.8  1.54919334 2.9  1.56524758 3.0  1.58113883 3.1  1.59687194 3.2  1.61245155 3.3  1.62788206 3.4  1.64316767 3.5  1.65831240 3.6  1.67332005 3.7  1.68819430 3.8  1.70293864