Var
a,b:real;
begin
readln(a,b);
writeln('y = ',sqrt(a)/(a+b));
end.
Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".<u>
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.
В случае постоянного и бесперебойного Интернет-соединения (что бывает крайне редко) задача имеет следующее решение:
1) За секунду передаётся 56 Килобит информации. Три минуты - это 180 секунд.
2) Поскольку передача файла заняла 180 секунд, нужно умножить количество информации в секунду на 180 для того, чтобы определить исходный размер файла:
3) 56(Кбит/секунду) * 180(секунд) = 10080(Кбит).
4) Один байт эквивалентен 8 битам. В одном Мегабайте 1024 Килобайта. Делим полученное значение на 8, а затем на 1024, чтобы определить размер файла в Мегабайтах:
5) 10080 / 8 / 1024= 1,23046875(Мб).
Ответ: исходный размер файла приблизительно составляет 1,23046875 Мб.
Удачи!
Что-то типо этого: https://beginpc.ru/images/windows/disk_structure.png
2) Решил бы еще, но замучаюсь всё это в пэйнте рисовать:)