Напишите программу вычисления площади и гипотенузы прямоуг. треуг.

если на паскале, то так:

var a,b: integer;

        s,c: real.

begin

            writeln('введите длины катетов');

            readln(a, b);

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

            s: =(a*b)/2;

            writeln('гипотенуза: ', c: 0: 2, 'площадь: ', s: 0: 3);

end.

здесь с - гипотенуза, а s - площадь.

//pascal abc.net v3.0 сборка 1111 var   a,b,c,d: integer; begin   read(a,b);   c: =a;   d: =b;   while (a< > 0) and (b< > 0) do   if a> b then a: =a mod b else b: =b mod a;   writeln(c div (a+b));   writeln('');   writeln(d div (a+b)); end. //а теперь программа для тестов, выведет 1000 результатов в файл var   a,b,c,d,i: integer;   f: text; begin   assign(f,'text.txt');   rewrite(f);   for i: =1 to 1000 do     begin;       a: =random(1,100);   b: =random(1,100);   c: =a;   d: =b;   while (a< > 0) and (b< > 0) do   if a> b then a: =a mod b else b: =b mod a;   writeln(f,c,' ',c div (a+b));   writeln(f,'=': length(inttostr(;   writeln(f,d,' ',d div (a+b));   writeln(f);     end;   close(f); end.

Var      a: byte; begin     write('enter number days, or 0, to exit application-> ');     repeat       readln(a);       if a=1 then writeln('monday');       if a=2 then writeln('tuesday');       if a=3 then writeln('wednesday');       if a=4 then writeln('thursday');       if a=5 then writeln('friday');       if a=6 then writeln('saturday');       if a=7 then writeln('sunday');     until a=0;     writeln('goodbye'); end.