Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
morlok
0 / 0 / 0
Регистрация: 06.10.2012
Сообщений: 28
1

Программа подсчета простых трёхзначных чисел

06.10.2012, 17:34. Просмотров 954. Ответов 3
Метки нет (Все метки)

Всем привет!Нужна помощь в составлении программ:
2)программы подсчета простых трёхзначных чисел
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2012, 17:34
Ответы с готовыми решениями:

программа вывода трёхзначных чисел без чётных цифр
Ребят я сделал программу вывода на экран трёхзначных чисел в которых нет чётных...

Pascal - программа генератор простых чисел
Привет, у меня возникла трабла с задачей :( Составить на pascal...

Написать программу поиска трёхзначных чисел
Написать программу поиска трёхзначных чисел, квадрат который оканчивается тремя...

Количество трёхзначных чисел сумма цифр которых = 10
Задача звучит так: Посчитать сколько трехзначных чисел,cумма цифр которых...

Из всех трёхзначных чисел вывести те, произведение цифр которых = B
1) Вычислить сумму чётных чисел от 40 до 80 2) Из всех трёхзначных чисел...

3
Aspirin
29 / 6 / 2
Регистрация: 05.10.2012
Сообщений: 117
06.10.2012, 18:09 2
Всех или которые вводятся?
0
morlok
0 / 0 / 0
Регистрация: 06.10.2012
Сообщений: 28
06.10.2012, 18:32  [ТС] 3
я так понимаю что всех,просто так само задание написано.
0
Aspirin
29 / 6 / 2
Регистрация: 05.10.2012
Сообщений: 117
06.10.2012, 19:08 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program prostoe3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var n,i,c,j,k,d:integer;
    a:array[1..900] of integer;
begin
   n:=100;
   for i:=1 to 900 do begin
      a[i]:=n;
      n:=n+1;
   end;
   d:=0;
   for i:=1 to 900 do begin
      k:=0;
      c:=trunc(sqrt(a[i]));
      for j:=2 to c do begin
         if a[i]mod j=0 then k:=k+1;
      end;
      if k=0 then d:=d+1;
   end;
   write(d);
   readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2012, 19:08

Составить программу, которая посчитает сумму всех трёхзначных чисел
Составить программу, которая посчитает сумму всех трёхзначных чисел!!!

Программа подсчета числа неуспевающих и программа поиска владельца автомобиля...
Помогите пожалуйста решить 2 задачи: Составьте программу подсчета числа...

Среди всех трёхзначных чисел,вывести те,которые равны сумме кубов своих цифр
Среди всех трёхзначных чисел,вывести те,которые равны сумме кубов своих цифр


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru