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

Обсуждение задачи 1820. Уральские бифштексы

Help me please. Where is error? В чем ошибка?
Послано timur1108 3 мар 2015 20:50
var n,k,l:real;
begin
read(n,k);
l:=(n*2/k);
if trunc(l)=0 then write(2)
else if frac(l)=0 then write(l)
else write(trunc(l)+1);
end.
Re: Help me please. Where is error? В чем ошибка?
Послано nxao 14 июн 2015 04:44
l:=(n*2)/k;