eolymp
Допомога

Розв'язок на Pascal

Розв'язок на Pascal

Всі розв'язки, незалежно від мови програмування, перевіряються автоматичною системою. Система перевірки створює ізольоване, пусте оточення для вашої програми, компілює її і виконує декілька разів з різним набором вхідних даних. Після цього перевіряюча система порівнює дані виведені програмою з очікуваним результатом, використовуючи спеціальний алгоритм.

Перевіряюча система не аналізує код програми, не перевіряє її зміст, форматування, назву змінних, розмір програми тощо.

У випадку перевірки з використанням файлів для введення/виведення, виведення в стандартний потік введення/виведення (stdin і stdout) ігнорується. У випадку використання стандартних потоків введеня/виведення (stdin і stdout) перевіряюча система не аналізує файлів створених розв'язком.

Вхідні дані завжди відповідають обмеженням вказаним в умові задачі. В розв'язку немає потреби перевіряти коректність введення, якщо про це не сказано в умові задачі. Будьте уважні, рядки у вхідних даних розділені символом переходу на новий рядок \nабо сполученням символів переходу на новий рядок і повернення курсора:\r\n. Програма повинна коректно опрацьовувати обидва варіанти.

Відповіддю вважається всі дані виведені програмою під час її виконання, тому якщо Ваша програма виводить додаткові повідомлення, наприклад "Введіть число" або "Відповідь: " ці повідомлення будуть вважатися частиною відповіді і розв'язок не буде зараховано. Слідуйте інструкції в умові задачі щоб відформатувати відповідь правильно.

Ви можете відправити розв'язок реалізований мовою програмування Pascal використовуючи компілятор Pascal. Перевіряюча система використовує компілятор FreePascal 3.0.4 що запускається в операційній системі Ubuntu 18.04. Компілятор запускається з такими параметрами:

fpc -oa.out source.pas

У випадку, коли компілятор повертає помилку, розв'язок не тестується і перевіряюча система зараховує "Помилку компіляції". На сторінці розв'язку буде виведено повідомлення про помилку згенеровану компілятором.

Приклад розв'язку простої задачі на Pascal:

var number:integer;
begin
  read(number);
  writeln (number div 10,' ',number mod 10)
end.
var
a,b:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a);
writeln(f2,a div 10,' ',a mod 10);
close(f2);
close(f1);
end.