/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/08_ProcFunc/Proc2.pas
19 строк
366 B
Mikhalkovich Stanislav
Ускоренная реализация CountOf для строк
03 ноя 2025, 15:27
03 ноя 2025, 15:27
e0a2854
Код
Авторство
О чём код?
// Параметры-переменные procedure DivMod(a,b: integer; var d,m: integer); begin d := a div b; m := a mod b; end; begin var a := 7; var b := 3; var d,m: integer; DivMod(a,b,d,m); Println($'{a} div {b} = {d}; {a} mod {b} = {m}'); a := 23; b := 5; DivMod(a,b,d,m); Println($'{a} div {b} = {d}; {a} mod {b} = {m}'); end.