Не понимаю почему выдаёт ошибку при вводе процедуры в код

@AKYJIKA · Регистрация: 18.12.2020

Студворк — интернет-сервис помощи студентам

Только учусь программированию на самом базовом языке, поэтому никак не могу понять почему мне выдаёт ошибку: "неверное количество параметров функции". Задача звучит так: На части катушки с автобусными билетами номера шестизначные. Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета - N, больший - M (билет является счастливым, если сумма первых трёх его цифр равна сумме последних трёх).
Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var n,m,e,luck:integer;
    
function sh (a,a1,a2,a11,a12,a13,a21,a22,a23,s1,s2,e:integer):integer;
          begin for a:=n to m do
            begin a1:=a div 1000;
                  a2:=a mod 1000; 
                  a11:=a1 div 100;
                  a12:=a1 mod 100 div 10;
                  a13:=a1 mod 100 mod 10;
                  a21:=a1 div 100;
                  a22:=a1 mod 100 div 10;
                  a23:=a1 mod 100 mod 10;
                  s1:=a11+a12+a13;
                  s2:=a21+a22+a23;
                    if s1=s2 then
                      e:=e+1;
            end;
          end;
 
begin writeln ('');
      readln (n);
      writeln('');
      readln(m);
      e:=0;
      sh(n,m);
      luck:=e;
      writeln('lucky=',luck);
end.

Если можно то исправьте пожалуйста. (Т-Т)

@ZX Spectrum-128 · 18.12.2020, 18:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var
  n, m, e, luck: integer;
 
function sh(n1, m1: integer): integer;
var
  a, a1, a2, a11, a12, a13, a21, a22, a23, s1, s2: integer;
begin
  e := 0;
  for a := n1 to m1 do
  begin
    a1 := a div 1000;
    a2 := a mod 1000;
    a11 := a1 div 100;
    a12 := a1 mod 100 div 10;
    a13 := a1 mod 100 mod 10;
    a21 := a1 div 100;
    a22 := a1 mod 100 div 10;
    a23 := a1 mod 100 mod 10;
    s1 := a11 + a12 + a13;
    s2 := a21 + a22 + a23;
    if s1 = s2 then
      e := e + 1;
  end;
  sh := e;
end;
 
begin
  writeln('меньший номер билета - N: ');
  readln(n);
  writeln('больший - M: ');
  readln(m);
  luck := sh(n, m);
  writeln('lucky=', luck);
end.

@Puporev · 18.12.2020, 18:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function sh (a:integer):boolean;
var a1,a2:integer;
begin
a1:=a div 1000;
a2:=a mod 1000;
sh:=a1=a2;
end;
var n,m,i,e:integer;
begin
repeat
writeln('Введите номера билетов 99999<n<m<1000000');
readln(n,m);
until(n>99999)and(m>n)and(m<10000000);
e:=0;
for i:=n to m do
if sh(i) then inc(e);
writeln('lucky=',e);
end.

@Puporev · 18.12.2020, 18:20

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function sh (a:integer):boolean;
var a1,a2:integer;
begin
a1:=a div 1000;
a2:=a mod 1000;
sh:=a1=a2;
end;
var n,m,i,e:integer;
begin
repeat
writeln('Введите номера билетов 99999<n<m<1000000');
readln(n,m);
until(n>99999)and(m>n)and(m<10000000);
e:=0;
for i:=n to m do
if sh(i) then inc(e);
writeln('lucky=',e);
end.

@AKYJIKA · 18.12.2020, 18:57 **[ТС]**

Спасибо вам всем огромное! <3

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@AKYJIKA 0 / 0 / 0 Регистрация: 18.12.2020 Сообщений: 3
	18.12.2020, 18:57 [ТС]
	Спасибо вам всем огромное! <3 0