Решить в си! даны три действительных числа. возвести в квадрат и напечатать те из них, значения которых неотрицательны. если таковых нет, то напечатать сообщение

C++ #include < iostream> using namespace std; void main() {   float a,b,c;   cin> > a> > b> > c;   if(a*a< 0& & b*b< 0& & c*c< 0)     cout< < "таких нет";   else   {         if(a*a> 0)     cout< < a*a< < " ";     if(b*b> 0)       cout< < b*b< < " ";   if(c*c> 0)     cout< < c*c< < " ";   } system("pause"); }

//pascalabc.net 3.0, сборка 1053 const   n=15; var   a: array[1..n] of integer;   i,s: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to n do begin       a[i]: =random(51)-20;       write(a[i],' ')   end;   writeln;   s: =0;   for i: =1 to n do       if a[i]> a[5] then s: =s+a[i];   writeln('сумма искомых элементов равна ',s) end. тестовое решение: исходный массив -10 0 -10 -13 11 7 13 7 -2 -11 12 19 -20 10 -3 сумма искомых элементов равна 44

//pascalabc.net 3.0, сборка 1053 const   bmw=1700000; var   s,x: longint;   n: byte; begin   randomize;   n: =0; s: =0;   writeln('месяц    сумма взятки    накоплено');   while s< bmw do begin       x: =random(150001); s: =s+x; inc(n);       writeln(n: 4,x: 12,s: 15)   end;   writeln('потребуется месяцев: ',n) end. тестовое решение: месяц    сумма взятки    накоплено     1          131598                131598     2            40502                172100     3            90384                262484     4            33945                296429     5            50956                347385     6          137449                484834     7            32050                516884     8            68439                585323     9              1187                586510   10            70707                657217   11          145871                803088   12          143780                946868   13            54179              1001047   14            39314              1040361   15            30297              1070658   16            49163              1119821   17            63244              1183065   18          128362              1311427   19            87284              1398711   20            80851              1479562   21            71269              1550831   22          139577              1690408   23            78690              1769098 потребуется месяцев: 23