Вот порядок приготовления пельменей. В посуду смешивают яйцо,вода, мука. чуть соли. .Тесто замешивают до консистенции,чтоб можно было резать ножом. Дальше Некоторые раскатывают большой сочень потом стаканом или другой формой выдавливают лепешечки на посредственно для пельменей туда кладут фарш слепили и готово. Другие раскатывают тесто под вид колбаски ,затем ножом эту колбаску разрезают на равные части,которые раскатывают для фарша. Я знаю три вида формы пельменей.
var ar: array[0..3] of integer; digits: array[0..9] of integer; out: array[1..4, 1..7]of integer;
begin for var i := 0 to 9 do digits[i] := 0; var sum := 0; for var i := 1 to 2 do begin out[i][1] := 1053; out[i][2] := 1077; out[i][3] := 1074; out[i][4] := 1077; out[i][5] := 1088; out[i][6] := 1085; out[i][7] := 1086; end; out[4][1] := 1053; out[4][2] := 1077; out[4][3] := 1074; out[4][4] := 1077; out[4][5] := 1088; out[4][6] := 1085; out[4][7] := 1086;
out[3][1] := 1042; out[3][2] := 1077; out[3][3] := 1088; out[3][4] := 1085; out[3][5] := 1086; out[3][6] := 160; out[3][7] := 160; var num := readinteger('Введите четырехзначное число:'); ar[3] := num mod 10; ar[2] := num div 10 mod 10; ar[1] := num div 100 mod 10; ar[0] := num div 1000; for var i := 0 to 3 do digits[ar[i]] += 1; for var i := 0 to 9 do try sum += digits[i] div digits[i]; except on System.DivideByZeroException do end; for var i := 1 to 7 do write(chr(out[sum][i])); end.
div - берет целую часть от числа.
mod - берет остаток.
a = 187
b = 1
c = 7
a = 7 + 1 = 8
ответ: 8