|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.04.2010, 17:35 | #1 |
Пользователь
Регистрация: 16.04.2010
Сообщений: 48
|
Процедура в паскале!
помогите это написать с процедурой!!!
program f; var a, b, c, d, rez: integer; function NOK (k, t:integer):integer; var z: integer; begin if k>t then z:=k else z:=t; while not ((z mod k=0) and (z mod t=0)) do z:=z+1; NOK:=z; end; begin writeln ('zadayte 4 chisla'); readln (a, b, c, d); rez:=nok (nok(nok(a, b), C), d); writeln ('rezultat=', rez); end. ПОЖАЛУЙСТА |
18.04.2010, 20:03 | #2 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Код:
Программирование - это великое искусство... Такое же как например и живопись!
|
19.04.2010, 21:37 | #3 |
Пользователь
Регистрация: 16.04.2010
Сообщений: 48
|
СПАСИБО!!!!!!!!!!!!!!
|
20.04.2010, 00:33 | #4 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
да не за что, обращайся
395359808
Программирование - это великое искусство... Такое же как например и живопись!
|
20.04.2010, 18:49 | #5 |
Пользователь
Регистрация: 16.04.2010
Сообщений: 48
|
ну вот, поблагодари называется! программка-то твоя не работает!!! эх, ну совсем не работает! результат не вычисляет...
|
20.04.2010, 18:51 | #6 |
Пользователь
Регистрация: 16.04.2010
Сообщений: 48
|
P. S. Я тебя в аське добавила, ок? ))
|
20.04.2010, 18:52 | #7 |
Пользователь
Регистрация: 16.04.2010
Сообщений: 48
|
что ж мне с НОК делать-то...
|
20.04.2010, 19:00 | #8 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Ты зря прога работает!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
20.04.2010, 19:04 | #9 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Да всё чётко работает.
にんじゃ
|
20.04.2010, 20:28 | #10 |
Пользователь
Регистрация: 16.04.2010
Сообщений: 48
|
ну, не знаю... может быть, у меня что-то не так или я что-то не так делаю.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедура в паскале! | wrmarw | Помощь студентам | 2 | 16.04.2010 19:59 |
Процедура в процедура в C++ Builder | Ecosasha | C++ Builder | 2 | 06.06.2009 17:17 |
Процедура в Паскале | maziLa | Помощь студентам | 1 | 05.01.2009 12:03 |
Процедура () | GAGARIN-NEW | Помощь студентам | 3 | 17.12.2007 21:42 |