вычислить периметр и площадь прямоугольника со сторонами m и n. Нужна блок схема и программа на Паскале

167

490

Посмотреть ответы 1

Ответы на вопрос:

obshaga2311

Информатика

4,8(4 оценок)

Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала. var n, i, fact, ans : integer; begin read(n); fact : = 1; for i : = 2 to n do fact : = fact * i; while (fact mod 10 = 0) do begin ans : = ans + 1; fact : = fact div 10; end; writeln(ans); end.теперь более "умный" код, в нём использован тот факт, что простое число p входит в разложение факториала числа n = [n/p] + [n/p^2] + [n/p^3] + где [x] - целая часть числа x.var n, i, fact, c, pow, ans : integer; {c - сколько раз входит в разложение числа n! цифра 5}begin read(n); pow : = 5; while (pow < = n) do begin c += n div pow; pow : = pow * 5; end; writeln(c); end.