/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Proc1.pas
17 строк
353 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Параметры процедур procedure Operations(a,b: integer); begin writeln(a,' + ',b,' = ',a+b); writeln(a,' - ',b,' = ',a-b); writeln(a,' * ',b,' = ',a*b); writeln(a,' / ',b,' = ',a/b); writeln(a,' div ',b,' = ',a div b); writeln(a,' mod ',b,' = ',a mod b); end; begin Operations(5,3); writeln; Operations(7,4); end.