IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> прцедура
zoha
сообщение 3.01.2008 21:54
Сообщение #1


Хакер
*

Группа: Пользователи
Сообщений: 49
Пол: Мужской

Репутация: -  -4  +


помогите пожалуйста в организации процедуры! я только новичек в Паскале

Вот описание

Составить программу для нахождения наименьшего общего кратного 3 натуральных чисел

Вот фрагмент программы, го она не работает! Даже есть скриншот!!
ПОМОГИГЕ, PLEASE

program LAb_14;
uses crt;
var a,b,c:0..9;
z:integer;
procedure vvod(a,b,c:byte);
Var i:byte;
begin
read(a,b,c);end;
procedure nok(a,b,c:byte;var z:integer);
var i,x:byte;
begin
if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;
x:=z;
end;
begin
clrscr;
writeln('Введите 3 натуральных числа');
vvod(a,b,c);
writeln('Наименьшее общее кратное 3 чисел=');
nok(a,b,c,z);
readln;
end.


Эскизы прикрепленных изображений
Прикрепленное изображение

Прикрепленные файлы
Прикрепленный файл  ZOHA14.PAS ( 413 байт ) Кол-во скачиваний: 202
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
zoha
сообщение 8.01.2008 19:18
Сообщение #2


Хакер
*

Группа: Пользователи
Сообщений: 49
Пол: Мужской

Репутация: -  -4  +


Все спасибо большое
THANK YOU!!!!!!!!!!!!!!!!!!!!!! good.gif good.gif good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 19:50
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"