Максимум решить . ( тема-программирование) 1. написать программу, которая выводит на экран первые четыре степени числа n. 2. даны катеты прямоугольного треугольника. найти его гипотенузу и площадь. 3. с начала суток прошло n секунд (n — целое найти количество секунд, прошедших с начала последнего часа.

pascal

program step;

var n: integer;

begin

read(n);

writeln(n);

writeln(n*n);

writeln(n*n*n);

writeln(n*n*n*n);

end.

program gip;

var a, b: integer;

begin

writeln('введите первый катет');

readln(a);

writeln('введите второй катет');

readln(b);

write('гипотенуза = ',sqrt(a*a+b*b));

end.

program time;

var n, min: integer;

begin

readln(n);

min : = n div 60;

writeln(min);

end.

1.

var n: integer;

begin

readln(n);

writeln(n,' ',n*n,' ',n*n*n,' ',n*n*n*n);

end.

пример:

3

3 9 27 81

2.

var a,b,c,s: real;

begin

readln(a,b);

c: =sqrt(a*a+b*b);

s: =a*b/2;

writeln('c = ',c: 4: 2,' s = ',s: 4: 2);

end.

пример:

3 4

c = 5.00 s = 6.00

3.

var n: integer;

begin

readln(n);

writeln(n mod 3600);

end.

пример:

7500

300

1) program chik2; var a,b,c: real; begin readln(a,b); if(a< b)then begin c: =a; a: =(a+b)/2; b: =b*c; end; if(a> =b)then begin c: =b; b: =(a+b)/2; a: =a*c; end; writeln(a,' ',b); end. 2) program chik; var a,x,b: real; begin readln(a,b); if(a=0)and(b< > 0)then  writeln('нет решений'); if(a< > 0)then begin   x: =-b/a; writeln(x); end; end. 3) program chik3; var a,b: real; begin readln(a,b); if(a< b)then a: =a*2 else if(b< a)then  b: =b*2; writeln(a,' ',b); end.

Var x,y: real; begin writeln('введите x и y: '); readln(x); readln(y); if (x> 0) and (y> 0) then   begin     writeln('первая четверть');   end; if (x< 0) and (y> 0) then   begin     writeln('вторая четверть');   end; if (x< 0) and (y< 0) then   begin     writeln('третья четверть');   end; if (x> 0) and (y< 0) then   begin     writeln('четвертая четверть');   end; end.