1) #include < iostream> using namespace std; unsigned long fact(int x) { unsigned long f=1; for (int i=1; i< =x; i++) { f*=i; } return f; } int main() { for(int i=0; i< =50; i++) cout < < i < < "! =" < < fact(i) < < endl; return 0; } 2) #include < iostream> using namespace std; int main() { int max=0; int n; do { cin > > n; if (n! =0 & & n> max) max=n; } while (n! =0); cout < < "\nmax=" < < max < < endl; return 0; }
kamalfayed229
01.03.2023
// pascalabc.net 3.1, сборка 1198 от 11.03.2016 begin var n: =readinteger; // очередной элемент var k: =0; // искомое количество var max: =n; while n< > 0 do begin if n=max then inc(k) else if n> max then begin max: =n; k: =1 end; n: =readinteger; end; writeln('число ',max,' встретилось ',k,' раз(а)') end. тестовое решение: 4 6 2 6 1 6 9 3 9 5 2 0 число 9 встретилось 2 раз(а)