Нельзя преобразовать real к integer

@Simon42 · Регистрация: 08.04.2018

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

В программе, где надо найти НОК из 2 чисел в 8 строке не могу преобразовать real к integer

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
m,n:integer;
function nok(var a,b: integer): integer;
begin
while m<>n do
  if m>n then m:=m-n
    else n:=n-m;
  nok:=a*b/m;
end;
begin
  readln(m,n); 
  a:=m; 
  b:=n;
  writeln(nok);
  end.

Может кто помочь? Дедлайн по информатике

@Puporev · 08.04.2018, 13:11

Pascal
1
nok:=a*b div m;

@Simon42 · 08.04.2018, 13:12 **[ТС]**

17 строка, нет перегруженной подпрограммы с такими типами параметров, не могу вывести ответ

@Puporev · 08.04.2018, 13:14

Сообщение от Simon42

17 строка,

Так в коде 15 строк.

Добавлено через 36 секунд
Да Вы и не партесь, написано совсем неверно.

@Simon42 · 08.04.2018, 13:16 **[ТС]**

14 строка*
знаю, что неправильно написано, но пишу сейчас другое и нет времени переписать

@alex5code · 08.04.2018, 13:16

Сообщение от Simon42

17 строка

У Вас же в коде 15!!!

"Да, были люди в наше время,
Не то, что нынешнее племя:
Богатыри - не вы!"

@ZX Spectrum-128 · 08.04.2018, 13:45

Найти НОК (наименьшее общее кратное) двух натуральных чисел

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Simon42 0 / 0 / 0 Регистрация: 08.04.2018 Сообщений: 18
	08.04.2018, 13:12 [ТС]
	17 строка, нет перегруженной подпрограммы с такими типами параметров, не могу вывести ответ 0

@Simon42 0 / 0 / 0 Регистрация: 08.04.2018 Сообщений: 18
	08.04.2018, 13:16 [ТС]
	14 строка* знаю, что неправильно написано, но пишу сейчас другое и нет времени переписать 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	08.04.2018, 13:45
	Найти НОК (наименьшее общее кратное) двух натуральных чисел 0