Ученик скачал файл объёмом 15 мегабайт содержащий контрольную работу информация по каналу связи передаётся со скоростью 2.5 килобайт в секунду какое время понадобится для скачивания файла
begin writeln('Введите два катета a,b: '); readln(a,b); writeln('Введите гипотенузу c: '); readln(c); if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.') else writeln('Треугольник не прямоугольный.'); end.
// 2.
var A: array [1..100] of integer; x,i,n: integer;
begin writeln('Введите кол-во чисел N: '); readln(n); writeln('Введите числа: '); for i:= 1 to n do readln(A[i]); writeln('Вы ввели: '); for i:= 1 to n do write(A[i]:4); writeln; for i:= 1 to n do if A[i] > -1 then x:=x+1; writeln('Среди них положительных: ',x); end.
15 мб - 15360 кб
15360:2.5=6144 с