• Предмет: Информатика
  • Автор: andrejloh888
  • Вопрос задан 2 года назад
< >

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000​ ( на языке Паскаль )​

Ответы

Ответ дал: alfimovaalya
1

Ответ:

1.var i,n,s:integer;

2.begin

3.readln(n);

4.s:=1;

5.for i:=1 to n do

6.s:=s*i;

7.writeln(s);

8.end.

Объяснение:

andrejloh888: спасибо
Похожие вопросы
Русский язык
1 год назад
СРОЧНО!! Замените глаголы несовершенного вида глаголами несовершенного вида: отрезайте, проверяйте, справляйтесь, развешивайте, взвешивайте, назначайте, утешайтесь, увеличивайте, кладите.
Русский язык
1 год назад
Поставь глаголы в форму 1-го лица множественного числа: Ожидать, подметать, чинить, сажать, поставить, раскрасить, подружиться, краснеть, укрыть. Запиши их в два столбика: с буквой е в окончании и
Русский язык
2 года назад
жы шы пишется с буквой и или с ы
Русский язык
2 года назад
какие слова имеют две орфограммы на месте одной буквы?
Математика
7 лет назад
ко Дню флага ученики начальной и средней школы подготовили 32 работы. Работ учеников начальной школы было в 3 раза больше. Сколько работ подготовили ученики средней школы?
Математика
7 лет назад
найдите корень уравнений:2-7у/6+4у+7/3=-у/2;7у-1/12-у+1/4=2у+5/3.
Математика
9 лет назад
Катер плыл 2 ч со скоростью 35 км/ч. Потом он увеличил скорость на 3 км/ч и плыл столько же часов. Какой путь преодолел катер?
Алгебра
9 лет назад
1)x(2x-9)²-2x(15+x) ² 2)0,x(xy-2)²+1,2(xy-1)² 3)(x+2)²-(x-3)(x+3) 4)(7a-5b)(7a+5b)-(4a+7b)²