Program summa; var sum: biginteger; i,n: integer; begin write ('n = '); readln(n); sum: =0; i: =1; while i< = n do begin sum: =sum+i; i: =i+1; end; writeln('sum = ',sum); end. ================================ program krugi; uses graphabc; var x,y,r: integer; begin setbrushcolor(clgreen); x: =22; y: =22; r: =20; while x< 660 do begin circle(x,y,r); x: =x+40; end; end. ============================== program factorial; var pr: biginteger; i,n: integer; begin write ('n = '); readln(n); pr: =1; i: =1; while i< = n do begin pr: =pr*i; i: =i+1; end; writeln('факториал числа n! = ',pr); end.
Umkatoys50
03.01.2021
Var b: array[1..20] of biginteger; pr, pr1, raz: biginteger; begin pr : = 1; pr1 : = 1; for var i : = 1 to 20 do begin b[i] : = random(100) + 10; write(b[i]+' '); if b[i] mod 2 = 0 then pr : = pr * b[i]; if b[i] mod 2 < > 0 then pr1 : = pr1 * b[i]; raz : = pr - pr1; end; writeln(); writeln('разница равна ', raz); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какие нужно поставить знаки в записи 3 3 3 3 чтобы получилось 5, 8 и 10