Дистанционная подготовка: Гипотенуза
Гипотенуза
от Марина Балахонцева - Воскресенье 13 Декабрь 2015, 10:42
  подскажите пожалуйста как возможно уменьшить время выполнения программы по нахождению гипотенузы по двум катетам:

Program gipotenuza;
var A,B: integer;
C: real;
INPUT, OUTPUT : text;
begin
assign(input,'INPUT.TXT'); assign(output,'OUTPUT.TXT');
reset(input);
read(input,a);
read(input,b);
c:=sqrt(a*a+b*b);
reset(input); rewrite(output);
Writeln(output,C:4:1);
close(input); close(output);
end.

Система не засчитывает задачу как решенную, выдает ошибку по времени выполнения программы
Заранее спасибо
Re: Гипотенуза
от Peter Cherepanov - Пятница 18 Декабрь 2015, 11:40
  Задачи тестируются на Linux, где большие и маленькие буквы различаются. Файлов с заглавными буквами в системе нет.