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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 21.06.2014, 22:28   #11
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

На затравки
Код:
{*****************************************}
EvenNumbers := 0;
DividerOf3 := 0;

for i := 0 to 20 do 
	if i mod 2 = 0 then Inc(EvenNumbers)
	else if i mod 3 = 0 then Inc(DividerOf3);

{*****************************************}
s := 0;
for i := 1 to p do
	s := i+s; // а можно ариф. прогресс
WriteLn(s / (p+2));

{*****************************************}
ReadLn(n); diff := 0;
for i := 1 to n do begin
	Read(a[i]); if a[i] <> 0 then Inc(diff);

{*****************************************}
function f() : Real;
begin
	Read(a, b, c, d, e);
	f := (a+b+c+d+e)/5
end;
Poma][a вне форума
Старый 21.06.2014, 22:39   #12
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Не поможет затравка. Да и не нужна она уже ей. Все порешали уже.
ZX Spectrum-128 вне форума
Старый 22.06.2014, 08:12   #13
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

ок. тогда я тему закрываю...
Serge_Bliznykov вне форума
Закрытая тема

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задачи на pascal vedya Паскаль, Turbo Pascal, PascalABC.NET 3 15.03.2012 19:21
3 задачи (Pascal) Валера01 Помощь студентам 1 17.02.2012 12:58
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS