|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.05.2008, 12:06 | #1 |
Регистрация: 11.05.2008
Сообщений: 9
|
Оформить задачу процедурами
Подскажите пожалуйста, как оформить эту задачку процедурами?
Ps как еще можно решить эту задачку(может есть еще способы)?)) Program z1; uses crt; var a,b,c,k,l,m,z,f:integer; begin clrscr; Procedure vvod writeln('vvedi a'); readln(a); if (a mod 3)=0 then k:=a mod 10; z:=a div 10; l:=z mod 10; m:=z div 10; f:=m+l+k; writeln(m,'+',l,'+',k,'=',f); if (a mod 3)<>0 then writeln('Chislo ne cratno trem'); end. |
12.05.2008, 12:19 | #2 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Цитата:
Код:
Цитата:
I'm learning to live...
|
||
12.05.2008, 12:37 | #3 |
Регистрация: 11.05.2008
Сообщений: 9
|
Спасибочки)))
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
оформить как функцию | arturka | Помощь студентам | 11 | 20.06.2008 23:41 |
Помогите по работе с процедурами... | ЕвгениуS | Помощь студентам | 1 | 28.05.2008 15:52 |
Помогите решить задачу с процедурами | Jondeer | Помощь студентам | 2 | 28.11.2007 19:30 |
FastReport с 2-я процедурами | Abay | БД в Delphi | 2 | 20.09.2007 06:23 |