М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
maksategemberdi
maksategemberdi
16.02.2022 15:46 •  Информатика

N- factorial - это произведение всех чисел от 1 до n. для заданного числа n определите, сколько нулей в конце десятичной записи n - factorial

👇
Ответ:
Demaniza
Demaniza
16.02.2022
Нужно посчитать количество 5 в разложении. Причем нужно учесть, что 
25 = 5*5 - это две 5, а 125 = 5*5*5 - это три 5, и так далее.
BEGIN
k := 0;
for i=1 to N do
begin
    a := i;
    while a > 0 do
    begin
        if a mod 5 = 0 then
        begin
            k := k+1; 
            a := a/5;
        end;
        else a := 0;
    end;
end;
writeln (k);
END.
Проверь. 25! должен заканчиваться 6 нулями.
4,7(59 оценок)
Ответ:
007ek
007ek
16.02.2022
#include<iostream>using namespace std;int main(){    int a,q=0,b=1,r;    cin>>a;    for(int i=1;i<=a;i++)    b*=i;    r=b;     while(r!=0)    {if(r%10==0) q++;    else {cout<<q;break;}    r=r/10;}    return 0;}
4,7(30 оценок)
Открыть все ответы
Ответ:
gspd000
gspd000
16.02.2022
Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.
4,6(90 оценок)
Ответ:
орионер
орионер
16.02.2022

Выступление перед аудиторией порой вызывает немало хлопот даже у людей опытных, не говоря уже о новичках, делающих «первые шаги». Успех выступления зависит от многих факторов, где содержание доклада играет одну из ключевых ролей.

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

Что же теперь выучить весь текст наизусть, с вы? А если речь идет о защите дипломной работы в какой-нибудь. Вовсе нет. Мало кто располагает достаточным количеством времени, чтобы запомнить всю речь. Кроме того многие доклады изобилуют цифрами, в которых лучше не ошибаться. Получается, что текст все же лучше читать. Но что в таком случае делать, чтобы не потерять визуальный контакт с публикой? Лучше всего прибегнуть к приему, которым пользуются дикторы телевидения. Для этого нужно читать лишь первые слова предложения, запоминая последующие, которые уже следует произносить, глядя в зрительный зал.

Естественно, для того чтобы выступать уверенно, необходимо хорошо знать содержание текста, поэтому одной репетицией здесь не обойтись. Следует несколько раз прочитать доклад, причем делая это вслух, громко и четко.

Как правило, докладчику для выступления предоставляют кафедру, на которой можно удобно разместить текст доклада. При желании текст можно взять в руку. Только, в этом случае, заглядывать в текст следует как можно реже.

Объяснение:

4,8(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ