Олимпиадный тренинг

Задача . Подпрограммы: введение


Задача

Темы:
Оформите процедуру, которая выводит на экран фразу "Error. Division by zero!". Дайте правильное название процедуре.

time 1000 ms
memory 256 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
 Кол-во
Free Pascal32
Комментарий учителя

Ваш ответ

Pascal
Напишите программу ниже 
var n: integer;
// Процедура, которая выводит на экран фразу "Error. Division by zero!"  
// Основная программа
begin
    read(n);
    if n = 0 then
        printError()
    else
        writeln(n div 5);
end.
     

Загруженные файлы
Нет