Вычисление НОК элементов целочисленного массива

@2016qwerty · Регистрация: 11.05.2016

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

составьте программу вычисления НОК элементов целочисленного массива А(n), что расположены перед первым нулевым элементом данного массива

исправьте пожалуйста

Pascal

var a:array[0..100] of integer; kratnoe,n,i,j:integer;
function NOK(k,l:integer):integer;
begin
while k <> l do
if k > l then
k := k - l else
l := l - k;
NOK:=l;
end;
begin
writeln('Введите размерность массива n');
readln(n);
writeln('Введите массив');
for i:=1 to n do read(a[i]);
j:=1;
while (a[j]<>0) and (j<=n) do j:=j+1;
if (j>n) or (j=1) then writeln('Невозможно посчитать')
else if j=2 then writeln('NOK=',a[1])
else if j=3 then writeln('NOK=',nok(a[1],a[2])) else begin
kratnoe:=nok(a[1],a[2]);
for i:=3 to j do kratnoe:=nok(kratnoe,a[i]);
writeln('NOK=',kratnoe);
end;
end.

тут НОД, а по условию НОК нужен

@shilko2013 · 04.06.2016, 11:50

Pascal

function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;

Новые блоги и статьи
Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .	Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .

	04.06.2016, 11:50