Розв'язок на 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.