|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.04.2008, 09:58 | #1 |
Пользователь
Регистрация: 01.04.2008
Сообщений: 42
|
Помогите нарисовать болк схемы!ПЛИЗЗЗЗ!
1)Program laba_1;
uses crt; var k,l,m:integer; begin readln(k,l,m); if ((k mod l)=0 ) or ((l mod k)=0 ) then WriteLn('пара K и L кратные'); if ((l mod m)=0 ) or ((m mod l)=0 ) then WriteLn('пара L и M кратные'); if ((k mod m)=0 ) or ((m mod k)=0 ) then WriteLn('пара K и M кратные'); readln; end. 2)var k,l,m:integer; begin readln(k,l,m); if k mod l=0 then writeln(k,' kratno ',l); if k mod m=0 then writeln(k,' kratno ',m); if l mod k=0 then writeln(l,' kratno ',k); if l mod m=0 then writeln(l,' kratno ',m); if m mod k=0 then writeln(m,' kratno ',k); if m mod l=0 then writeln(m,' kratno ',l); readln; end. |
10.04.2008, 10:29 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Life is too short, play more...
Как правильно задавать вопросы |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите кто-нить лабы решить...плизззз | Vinos Moska | Фриланс | 3 | 19.06.2008 14:24 |
Помогите кто-нить лабы решить...плизззз | Vinos Moska | Microsoft Office Excel | 2 | 19.06.2008 11:44 |
Помогите нарисовать график. | Игорь007 | Помощь студентам | 0 | 02.06.2008 20:12 |
Q-схемы, помогите скомпилировать. | NiganInterCOM | Общие вопросы Delphi | 2 | 04.02.2008 20:08 |