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

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.

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.