Alex91

Alex91
Рейтинг
258
Регистрация
30.12.2007

мда) ловите)

Program Progr_vloj_vi4_prots;
var i,n: byte;
a,del: integer;
BEGIN
Writeln('Факториал какого числа будем искать?');
Writeln('(Введите его и нажмите ENTER)');
Readln(i);
Writeln('Кратно чему??');
Readln(del);
a:=1;

For i:=1 to i do If (i mod del)=0 Then
begin
For n:=1 to i do a:=a*n;
Writeln('Для n=',i,', n!=', a);
a:=1;
end;

END.
fine:
Данные массива где задаются? В самой программе рандомом или надо вводить с клавиатуры?

да, ответьте на этот вопрос


uses
SysUtils;

var
x: array[0..11] of integer;
i,sum:integer;
begin
sum:=0; //обнуляем
read(N);//считываем n
for i:=0 to N do begin //считываем массив, сразу же проверяем деление на 13
read(x);
if((xmod 13)=0) then sum:=sum+x;
end;

writeln('Summa:'+inttostr(sum)); //выводим сумму
readln(i);// убрать после отладки, нужно, чтобы задержать экран
end.

комментарии, убрать :)

проснулся утром, встал, а апа нет,

все сайты вроде живы,

ап тиц? да нет - опять приснился бред,

ну пузомерки, где вы,где вы?

тут форум ведь вебмастеров,

в разделе яндекс пишутся стихи,

быть может, куча поваров,

клепает сайты, сидя тут, в тиши

Дрозофила:
Ни смена алгоритма, ни фильтры никакой другой бардак

Бардак у Яши в голове, друг мой,

Тут не поможем мы никак,

Хотя чуть-чуть, постой!

Работать надо,вот ведь как!

Чем больше будем делать против мы,

Тем должен быть ведь он - сильней, мудрей,

Бороться с нами, нас ведь - тьмы,

А он лишь фильтр нам скорей.

Вручил, и я теперь "последний",

как выбраться, мне помоги.

Как же дядя Яша вредный,

Хоть у техподдержки это ты спроси.

Спросил у них, они сказали:

Вы пишите, контент вы улучшайте, дорогой,

Мысль не поймав, писали:

И все появится, ты только, человек, не стой

И я ведь не стою, иду вперед, воюю,

Находка, Магадан,я не поникну головой.

И Ночь уж темная,а я вот все не сплю,

Шлифую сайт - он первый, я второй,

И ведь спать уже пора бы,

Засыпая: "Может,ап?"

С утреца, скорей вставая,

Проверяешь - апа нет!

Ночью было на серче про ап три темы,

Модератор пришел, и скорее потер,

Топикстатер обругам наверно всеми,

Все ждут ап, а Яндекс хитер!

Появилась тут темка в разделе не том,

Изливайте Вы мысли, давайте опять,

Яндекс банит десяток, о Боже, дурдом!

Дописал, отправил - немного поспать ;)

Asklepiy:
Это закос или клон?

тоже первая мысль была об этом :)

киньте в личку посмотреть

ЗЫ: ну и денек сегодня, одна физика ен форуме :)

хы)

FView:
вы шибанулись к пятнице шо ли

завтра создадут тему: давайте в сапер на деньги со скриншотами :)

Light Phantom:
а сателлиты (нулевые) того не стоят.

покупайте инфошки какие-нибудь, org,net,com. Заведите аккаунт у надежного регистратора с приемлимыми ценами, и делайте внутренний пуш покупателю. А старт поставьте - стоимость контента+домен, ну и прибавку.

PS. А вообще, что мешает зарабатывать на них же в сэйп например?

на joostine не хотите такое сделать?

имхо, удобнее чем 1.0.15

Всего: 4789