сервис вопросов и ответов1)Найти 3 совершенное число(программа+блок схемы)
10-11 класс|
|
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)
Mishustinairina201
16 сент. 2013 г., 4:19:53 (10 лет назад)
Lizka1565
16 сент. 2013 г., 4:52:04 (10 лет назад)
var
i, n, s: longint;
d, k: integer;
begin
i := 3; k := 0;
repeat
s := 1;
for d := 2 TO Trunc(sqrt(i)) do
begin
n := (i div d);
if n * d = i then s := s + d + (i div d);
end;
if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
if s = i then k := k + 1;
i := i + 1
until (k = 3);
Writeln('Третье совершенное число равно ',s)
end.
Тестовое решение:
Третье совершенное число равно 496
const
k=35; { k-е по порядку простое число }
var
i,j,n,m:integer;
begin
n:=1; i:=1;
repeat
j:=2;
m:=round(sqrt(i));
while (i mod j <>0) and (j<=m) do j:=j+1;
if j>m then n:=n+1;
i:=i+1
until (n=k);
Writeln(i-1)
end.
Тестовое решение:
137
var
n, d1, d2, d3: integer;
begin
Write('Введите трехзначное число ->');
Readln(n);
d1 := (n div 100);
d2 := ((n mod 100) div 10);
d3 := (n mod 10);
if (d1 * d2 * d3 in [100..999]) then
Writeln('Произведение цифр трехзначное')
else Writeln('Произведение цифр не трехзначное')
end.
Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное
*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
% - операция остатка от целочисленного деления
Viko4ka07
16 сент. 2013 г., 5:59:51 (10 лет назад)
1-2 задания написаны не по-русски. Я не понимаю, что такое "3 совершенное" и "35 простое".
Buba2014
16 сент. 2013 г., 8:42:37 (10 лет назад)
Тридцать пятое и третье
Ekaterina20011959
16 сент. 2013 г., 11:01:05 (10 лет назад)
В смысле по порядку для натурального ряда? Понятно
Ответить
Другие вопросы из категории
кто знает информатику. Помогите плиз.
3 Кбайт сколько это байт, бит
8192 бит сколько это байт, Кбайт
3072 Мбайт сколько это Гбайт, Кбайт
Написать алгоритм, определяющий, на какую цифру оканчивается заданное натуральное число. Записать решение в виде линейного алгоритма в Pascal ABC.
Заранее спасибо)))
помогите пожалуйста решить задачи
1. сообщение, записанное буквами из 64 символьного алфавита, содержит 20 символов. какой объем информации она несет?
2. сколько символов содержит сообщение, записанное с помощью 16 символьного алфавита, если его объем составил одну шестнадцатую часть мб?
3. сколько бит информации содержится в сообщении, размером 8 байт?
ПОМОГИТЕ!!!!!!!!!!!
дана матрица В(6,6) (элементы выбрать самостоятельно) выяснить верно ли что наибольшее из значений элементов главной диагонали больше чем наименьшее из значений побочной диагонали. дать текстовое сообщение и напечатать для сравнения оба значения.
НАПИСАТЬ ПРОГРАММУ В VBA EXCEL
Читайте также
Задание № 1) Разработать блок схему алгоритма, который проверяет, является ли четным введенное с клавиатуры число
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
1)составить блок-схему поиска двузначных чисел,таких,что если к сумме цифр этого числа прибавить квадрат этой суммы,то получится это число.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.
Дан фрагмент программы. Нарисуйте блок-схему, восстановите вид формулы для расчета S
PASCAL:
VAR
A:ARRAY[1...100]OFF
INTEGER;
N,I,J: INTEGER;
S: REAL;
BTGIN
N:=8;
FOR I:=1 TO N DO
BEGIN
S:=0;
FOR J:=1 TO I DO
S:=S+(A[J]);
S:=ABS(S);
WRITELN(`S`=`,S:9:2);
END;
READLN;
END.
QBASIC
DEFINT N,I,J,S,
DIM A(100) AS INTEGER
N:=8
FOR I=1 TO N
S=0
FOR J=1 TO I
S=S+A[J]
NEXT J
S=ABS(S)
PRINT S
NEXT I
ШКОЛЬНЫЙ АЯ
алг слово(рез вещ s)
цел раб А[1:100]
n:=8
нц для I от 1 до n
s=0
нц для j от 1 до I
s=s+a[j]
кц
s=abs(s)
вывод s
кц
кон
Пожааалуйста нужны блок-схемы для трех вариантов получения s
Дан одномерный
целочисленный массив А, состоящий из
N элементов,
N -
заданное натуральное число. Упорядочить элементы массива
по неубыванию. (программа +блок-схема)на языке QBasic
Помогите пожалуйста! 1)Построить развлетвляющийся алгоритм, записать алгоритмы ввиде блок-схемы и на алгоритмическом языке. Треугольник задан
длинами своих сторон – a, b, c. Определить является ли
он тупоугольным, прямоугольным или остроугольным.
2) Построить циклический алгоритм, записать ввиде блок-схемы и на алгоритмическом языке.
Построить алгоритм, который определяет количество студентов в группе,
чей рост превышает среднее для группы значение.
Вы находитесь на странице вопроса "1)Найти 3 совершенное число(программа+блок схемы)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.