Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 12.05.2008, 11:06   #1
Anita_i
 
Регистрация: 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.
Anita_i вне форума Ответить с цитированием
Старый 12.05.2008, 11:19   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
как оформить эту задачку процедурами?
Например так:
Код:
Program z1;
uses crt;
var a,b,c,k,l,m,z,f:integer;
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;
begin
 clrscr;
 vvod;
end.
Цитата:
как еще можно решить эту задачку
В строку преврати и... поиском по форуму )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.05.2008, 11:37   #3
Anita_i
 
Регистрация: 11.05.2008
Сообщений: 9
По умолчанию

Спасибочки)))
Anita_i вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
оформить как функцию arturka Помощь студентам 11 20.06.2008 22:41
Помогите по работе с процедурами... ЕвгениуS Помощь студентам 1 28.05.2008 14:52
Помогите решить задачу с процедурами Jondeer Помощь студентам 2 28.11.2007 19:30
FastReport с 2-я процедурами Abay БД в Delphi 2 20.09.2007 05:23


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840