Составить алгоритм нахождения площади прямоугольного треугольника в программе паскаль.

program 7e; uses crt; const n=25; var a,b,i: integer; {a,b-катеты}s,c: real; {s - площадь, c - гипотенуза}beginwriteln('введите длину первого катета'); read(a); writeln('введите длину второго катета'); read(b); c: =sqrt(sqr(a)+sqr(b)); s: =a*b/2; for i: =1 to n do writeln; writeln('длина гипотенузы =',c); writeln('площадь треугольника =',s); end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.