Помогите решить

[malabar]

Сообщение от netcher

насколько я понял тут нужно только Нарисовать три варианта графического представления алгоритма в ворде....а не саму программу

именно так!

[Sasha_Smirnov]

Без вычислений можно сказать, что таких чисел нет, ибо: чётное простое число всего одно — 2, а факториал, начиная с 4!, делится уже на 8.

Ну а 3!, равный 1·2·3, хоть и равен произведению последовательных простых чисел, но не трёх, а лишь двух. (Число 1 традиционно не относят к простым.)


Что касается блок-схем в Ворде... конечно, там это всё предусмотрено (в панели Рисование, а там автофигуры и пр.), но гораздо удобнее Visio. Тем более, что и в Вижио можно программировать (по альт-F11), а также и записывать макрокоманды.

Сообщение от Goblin

Это где такому учат. 8(). Ну я конечно слышал что там макросы есть, но чтоб так извращаться ето в первые.

Это же очень удобно: практически в каждом доме, где есть Windows (и даже DOS или Linux)!

[malabar]

там не говориться, что оно должно быть именно четным.

[Sasha_Smirnov]

Сообщение от malabar

Выяснить, можно ли представить его факториал (n!) в виде произведения трёх последовательных простых чисел.

Так вот факториалы натуральных чисел, кроме первого (1!), все числа чётные.

А вот произведения трёх последовательных простых чисел, кроме первого (2•3•5), все числа нечётные.

Так что, я думаю, вас учат программировать в принципе. То есть это Ваша программа должна Вам «сообщить»: так, мол, и так, но факториал введённого Вами n в виде произведения трёх последовательных чисел (простых) представить невозможно.

[malabar]

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

[Sasha_Smirnov]

Sub Bolvanka()

Dim n 'объявление переменной для вводимого Вами числа'

'цикл Do...Loop; выход происходит, как только пользователь ввёл число'
    
Do
n = InputBox("Ведите натуральное число!")
Loop Until IsNumeric(n)
    
MsgBox "Факториал числа " & n & " в виде произведения трёх последовательных чисел (простых) представить невозможно."

End Sub

Программа работает совершенно нормально. Что в Word, что в Excel, а может и в Visio (не пробовал).

Только вот блок-схемки какие-то кургузые будут: ввод-проверка-вывод. Что-то с чувством юмора у преподов?.. Или, может, в Минске единицу относят-таки к простым числам... Ну кто знает... Чем мог, тем помог!

[Сеня]

program name;
uses crt;
var a,n,i:integer;
begin
clrscr;
writeln('enter your number');
readln(n);
a:=1;
for i:=1 to n do a:=a*i;
writeln('fuck to real chisla',n,'=',a)
end.


Ну это вычесляет фактореал...

[AlDelta]

Название.
Закрыто.