Другие разделы

Правила

FAQ

Пользователи

Комментарии

Друзья сайта

Flash Loops

RaceBook

Информатика

В числовую переменную последовательно вводятся произвольные числа не равные нулю. Количество вводимых чисел заранее не известно. Требуется вычислить и напечатать сумму тех из них, порядковые номера которых являются простыми числами.

Решение задачи (Delphi/Pascal):

  1. Var
  2.   i,n,ch,j,k,summ:integer;
  3. begin
  4.   summ:=0;
  5.   Randomize;
  6.   n:=random(100);
  7.   writeln('kolichestvo cifr= ',n);
  8.   for i:=1 to n do
  9.     begin
  10.       ch:=1+random(100);
  11.       k:=0;
  12.       for j:=1 to i div 2 do
  13.         if i mod j=0 then inc(k);
  14.       if k=1 then
  15.         begin
  16.           writeln('chislo= ',ch,', por. nomer= ',i);
  17.           summ:=summ+ch;
  18.         end;
  19.     end;
  20.   writeln('summa= ',summ);
  21. readln;
  22. end.

© Филимошин В. Ю., 2009-2015

Вход

Логин:

Зарегистрировать

Пароль:

Забыли пароль?

запомнить

Пятнашки

1
4
2
5
13
12
9
3
7
6
11
8
14
10
15

Опрос

Как Вы узнали об этом сайте?

От админа (1036)

48.3%

От друзей (32)

1.49%

Поисковик выдал... (987)

46.0%

Увидел(а) на других сайтах (46)

2.14%

Другое (41)

1.91%

Случайное фото

A4Tech XL-750BH

Счётчики

Яндекс.Метрика

Internet Map

Каталог@Mail.ru - каталог ресурсов интернет