Как написать программу для pascal abc которая считает факториал числа который вводит пользователь

139

264

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

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

aazzziizz

Информатика

4,7(38 оценок)

//pascal abc.net v3.0 сборка 1111 //обойдусь без .net-овских примочек var a,b,i: integer; begin readln(a); if a=0 then begin; writeln('1'); exit; end; if a< 0 then begin; writeln('не определён'); exit; end; b: =1; for i: =1 to a do b: =b*i; writeln('res=',b); end.пример ввода: 3пример вывода: 6

nastya4030

Информатика

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

// pascalabc.net 3.0, сборка 1157 от 02.02.2016 begin var n: =readinteger('n='); if n< 0 then writeln(n,'! не определено: n< 0') else if n=0 then writeln('0! =1') else begin var p: biginteger: =1; for var i: =2 to n do p*=i; writeln(n,'! =',p) end end. тестовое решение: n= 138 138! =691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000