Регистрация
ATAT1
10.12.2021 07:31
Информатика
Есть ответ 👍

Написать программу значения вырадения (1+2)*(1+2+3)*(1+2+3+4+5) и т.д до 10.в pascal abc

266
328
Посмотреть ответы 2

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

stnicolay2007
stnicolay2007
4,8(16 оценок)
Var s,i: integer; p: real; begin s: =1; p: =1; for i: =2 to 10 do   begin   s: =s+i;   p: =p*s;   end; writeln('p = ',p) ; end. результат: p = 141455160000
tigranmesropyan
tigranmesropyan
4,6(50 оценок)
150 это 1200 бит 20*30=600 600 это   4800 бит 1200*4800=5 760 000 бит ответ в байтах: 90 000 байт

Популярно: Информатика