Informatică, întrebare adresată de danutghenghea1, 9 ani în urmă

Scrieți un program(in Pascal) care calculează numarul de zerouri de la sfârșitul lui n!(n mai mic sau egal cu 100).


danutghenghea1: Fără supărare,dar as dori in pascal
AntiEaglesDavids: Ok, ziceam pt ca n-am invatat pascal si poate te ajuta cu ceva. Nimeni nu stie pascal pe brainly. NIMENI
danutghenghea1: Scrie dar si in C++
artur99: *nimeni cu exceptia lui Angelicus, care e cam ocupat in ultimul timp :D
AntiEaglesDavids: aa chiar, dar nu l-am mai vazut de mult timp
artur99: :D :D
AntiEaglesDavids: apropo daca vrei sa te apuci de programare, te sfatuiesc sa ignori ce-ti impune scoala(adica pascal) si sa treci la c++ (si nu-mi vine sa cred ca spun asta dar: poti incerca si php :)) )
danutghenghea1: Mulțumesc pentru sfat!
AntiEaglesDavids: npc, daca mai ai intrebari nu ezita sa le postezi :)
artur99: Vere, ti-am dat un msg pe fb

Răspunsuri la întrebare

Răspuns de AntiEaglesDavids
0
Hai ca nu e greu, incearca sa-ti imaginezi algoritmul in pseudo-cod mai intai si apoi e easy...

#include<iostream>
using namespace std;

int main()
{
    int n, k = 5, zero = 0;

    cin >> n;
    while(n / k) {
        zero += n / k;
        k *= 5;
    }
    cout << zero;

    return 0;
}

Răspuns de artur99
0
Programu' lu AntiEagles tradus in limba lu' Pascal

program no_cum_vrei_sa_ii_zici;
var
n,k,zero:integer;
check:boolean;
begin
k := 5;
zero := 0;
check := true;
readln(n);

while check do
begin
zero := zero + round(Int(n / k));
k := k*5;
if round(Int(n/k))=0 then
begin
check := false;
end;
end;

writeln(zero);
end.


PS: My first Pascal app :D


artur99: LOL, vere, my expectations: "Whaat? Sa vezi si sa nu crezi..."
artur99: btw, how's it lookin'? :D e chiar misto, am inceput sa inteleg :D nu stie sa compare un int cu un float si pentru orice functie(if, while, etc etc) trebuie begin si end; :))) lol, si cea mai tare end-ul final are punct =))))))
angelicus: nu chiar dupa toate :D ai un begin/end in plus :)))) begin/end e echivalentul acoladelor din c++, si se folosesc cand avem instructiuni compuse adica " if 1 then begin instructiune1; instructiune2; end;
artur99: :D
Alte întrebări interesante