ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1001. Обратный корень

Что не так?
Послано Shtek97 3 сен 2016 22:47
Program Pr1;
var i:longint;
    A:real;
    k,n:longint;
begin
readln(n,k);
for i:= n downto k do begin
A:=sqrt(i);
writeln(A:0:4)
end;
end.