VPF::Массив: сумма чисел, кратных 10 - Форум программистов

Des666

Дата 22.12.2006, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.10.2006

Репутация: нет
Всего: нет

Как в заданой последовательности простых чисел найти количество и суму чисел кратных десяти?

Mush

Дата 22.12.2006, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

Наверное последовательность не простых а цели? Видь простое число ето такое которое делится только на 1 и само на себя…

Код

var a,i,sum,k,n:integer;
begin
write('Введите количество простых чисел:');
readln(n);
sum:=0;
k:=0;
for i:=1 to n do
begin
write('a',i,'=');readln(a);
if a mod 10=0 then begin
                    inc(k);
                    sum:=sum+a;
                   end;
end;
writeln('Количество=',k,' Сума=',sum);
readln;
end.

M
volvo877

Про теги не слышал никогда?

Это сообщение отредактировал(а) volvo877 - 22.12.2006, 21:35

Zero

Дата 23.12.2006, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(volvo877 @ 22.12.2006, 18:16

)

Про теги не слышал никогда?

volvo877 ты на количество его сообщений обрати внимание, и тогда поймёш. smile

TwisT_X

Дата 23.12.2006, 14:07 (ссылка)

(нет голосов)

Загрузка ...

It's works!

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4

А что если просто сделать динамический массив чисел допустим от 0 до 1000? Вот так вот:

Код


var A: array of integer;
      i,sum,k,n: integer;

begin
   write('Введите количество простых чисел:');
   readln(n);
   Setlength(A, n);
   sum:=0;
   k:=0;
   for i:=0 to n-1 do
   begin
      A[i]:= Random(1000);
      if A[i] mod 10=0 then 
      begin
         inc(k);
         sum:=sum+A[i];
      end;
    end;
    writeln('Количество=',k,' Сума=',sum);
    readln;
end.

Это сообщение отредактировал(а) TwisT_X - 23.12.2006, 14:16

--------------------

Если ты упадешь я буду рядом. (с) Асфальт

Zero

Дата 23.12.2006, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(TwisT_X @ 23.12.2006, 14:07

)

А что если просто сделать динамический массив чисел допустим от 0 до 1000? Вот так вот:

А что если проверить??? smile

Компилятор паскаля ни кто не запрещал...

TwisT_X

Дата 23.12.2006, 14:39 (ссылка)

(нет голосов)

Загрузка ...

It's works!

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4

Ну я не проверял.. Но думаю что все будет ОК.. Просто вручную вводить все эти числа ну его нафиг smile

--------------------

Если ты упадешь я буду рядом. (с) Асфальт

volvo877

Дата 23.12.2006, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(TwisT_X @ 23.12.2006, 13:39

)

Но думаю что все будет ОК..

А на название раздела уже не принято внимание обращать? С каких пор в Паскале появились дин. массивы? Для Дельфи есть отдельные форум, если бы человеку нужно было на Дельфи - он обратился бы туда...

TwisT_X

Дата 1.1.2007, 20:06 (ссылка)

(нет голосов)

Загрузка ...

It's works!

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4

ну лана лана так и быть загрузили вы меня..
извените плиз smile

--------------------

Если ты упадешь я буду рядом. (с) Асфальт

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »