1.скласти програму для обчислення гіпотенузи прямокутного трикутника (паскаль)

Var a, b, c: real; begin writeln('введите сторону a'); readln(a); writeln('введите сторону b'); readln(b); c : = sqrt((a * a) + (b * b)); writeln('гіпотенуза прямокутного трикутника дорівнює ', c); end.

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации 

грубо и сердито:

 

 

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.