53

Составте программу вычисления произведения чисел от 1 до 101*2*3*4*…

irinika 08 марта 2023

Составте программу вычисления произведения чисел от 1 до 101*2*3*4*… *10

категория: информатика

36

Program Task; Var i: Integer; p: LongInt; Begin p: =1; For i: =1 To 10 Do p: =p*i; WriteLn ('Результат: ', p); ReadLn; End.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...