Вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (а> 0 ) pascal.

I: integer; begin for i : = 1 to 40 do writeln(sqr(i),' сторона = ',i); end.

#include < iostream.h> #include < math.h> void main(){int i,n; cout< < "input size of mas: "; cin> > n; int *mas=new int[i]; cout< < "input element of mas"< < endl; for(i=0; i< n; i++)cin> > mas[i]; cout< < "output element of mas: "< < endl; for(i=0; i< n; i++)cout< < mas[i]< < " "; cout< < endl; int min; int pozmin; min=mas[0]; pozmin=0; for(i=1; i< n; i++){ if(mas[i]< min) { min=mas[i]; pozmin=i; }}int max; int pozmax; max=mas*[0]; pozmax=0; { if(mas[i]> max) { max=mas[i]; pozmax=i; }}int temp; temp=mas[pozmax]; mas[pozmax]=mas[pozmin]; mas[pozmin]=temp; for(i=0; i< n; i++)cout< < mas[i]< < " "; cout< < endl; }

написано на с++

program

privet;

var

x:

real;

begin

writeln(

'который час? '); read(x);

if

x>

24 then

 

writeln(

'введенное число не является временем ' )

else

begin

if 

(x> =

8) and (x< 12)  then writeln('доброе утро! ');

if 

(x> =

12) and (x< 17)      then writeln('добрый день! ');

if

(x> =

17) and (x< 23)      then writeln('добрый вечер! ');

if

(x> =

23) or (x< 8)  then writeln('доброй ночи! ');

end

;

end

.