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;
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.
Light Phantom: а сателлиты (нулевые) того не стоят.
покупайте инфошки какие-нибудь, org,net,com. Заведите аккаунт у надежного регистратора с приемлимыми ценами, и делайте внутренний пуш покупателю. А старт поставьте - стоимость контента+домен, ну и прибавку.
PS. А вообще, что мешает зарабатывать на них же в сэйп например?
мда) ловите)
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.
Данные массива где задаются? В самой программе рандомом или надо вводить с клавиатуры?
да, ответьте на этот вопрос
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.
комментарии, убрать :)
проснулся утром, встал, а апа нет,
все сайты вроде живы,
ап тиц? да нет - опять приснился бред,
ну пузомерки, где вы,где вы?
тут форум ведь вебмастеров,
в разделе яндекс пишутся стихи,
быть может, куча поваров,
клепает сайты, сидя тут, в тиши
Ни смена алгоритма, ни фильтры никакой другой бардак
Бардак у Яши в голове, друг мой,
Тут не поможем мы никак,
Хотя чуть-чуть, постой!
Работать надо,вот ведь как!
Чем больше будем делать против мы,
Тем должен быть ведь он - сильней, мудрей,
Бороться с нами, нас ведь - тьмы,
А он лишь фильтр нам скорей.
Вручил, и я теперь "последний",
как выбраться, мне помоги.
Как же дядя Яша вредный,
Хоть у техподдержки это ты спроси.
Спросил у них, они сказали:
Вы пишите, контент вы улучшайте, дорогой,
Мысль не поймав, писали:
И все появится, ты только, человек, не стой
И я ведь не стою, иду вперед, воюю,
Находка, Магадан,я не поникну головой.
И Ночь уж темная,а я вот все не сплю,
Шлифую сайт - он первый, я второй,
И ведь спать уже пора бы,
Засыпая: "Может,ап?"
С утреца, скорей вставая,
Проверяешь - апа нет!
Ночью было на серче про ап три темы,
Модератор пришел, и скорее потер,
Топикстатер обругам наверно всеми,
Все ждут ап, а Яндекс хитер!
Появилась тут темка в разделе не том,
Изливайте Вы мысли, давайте опять,
Яндекс банит десяток, о Боже, дурдом!
Дописал, отправил - немного поспать ;)
Это закос или клон?
тоже первая мысль была об этом :)
киньте в личку посмотреть
ЗЫ: ну и денек сегодня, одна физика ен форуме :)
5 зеленых бумажек
хы)
вы шибанулись к пятнице шо ли
завтра создадут тему: давайте в сапер на деньги со скриншотами :)
а сателлиты (нулевые) того не стоят.
покупайте инфошки какие-нибудь, org,net,com. Заведите аккаунт у надежного регистратора с приемлимыми ценами, и делайте внутренний пуш покупателю. А старт поставьте - стоимость контента+домен, ну и прибавку.
PS. А вообще, что мешает зарабатывать на них же в сэйп например?
на joostine не хотите такое сделать?
имхо, удобнее чем 1.0.15