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

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

Pascal Compilation error. Why?
Послано Michael 20 авг 2013 16:38
It works on my laptop! I have Pascal ABC.

var a,b,c:integer;
begin
readln(a,b);
if a>b then c:=ceil(2*a/b) else c:=2;
write(c);
end.