Войти Регистрация Спроси ai-bota

Составте программу вычисления произведения чисел от 1 до 10 1234 *10

Ответ:

Ирина7679

01.10.2020 12:30

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

0,0(0 оценок)

Ответ:

evgeniykorotkov

01.10.2020 12:30

Var i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr:=pr*i;
writeln(pr);
end.

0,0(0 оценок)

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

kamilaiks466

22.02.2021 15:32

ответить, 1. в чем разница между растровым и векторным представления изображения? 2. чем вы можете объяснить разнообразие форматов графических файлов?...

ника1700

26.05.2022 07:52

Кто тут смец по шрифтам?Можете сказать как делают никнеймы,которые выходят за рамки текста,просто давно видел у одного чувака,не знаю как он так сделал,в интернете...

7262626

04.09.2021 10:28

Максим за 1 месяц провёл 34 тренировки. на каждой тренировке он по 50 раз отжимался и делал по 75 приседаний. Сколько упражнений он выполнил за месяц ?...

abobov1234

08.12.2022 19:12

Choose the correct answer. We are going to the cinema. Do you want to come with…. a) them b) me c) we d) us...

неманема

01.11.2021 19:10

Що таке ландшафт та з чого він складається? Навести приклади різних ландшафтів...

КЕКАke

09.12.2020 01:02

вставь ссылку https://storage13.eljur.ru/storage/2776c1f70c1d63a3d5a6bc377fbe8551?filename=ВПР_вариант+1.pdf&domain=tsosh26...

KekCheburashka

29.09.2020 00:28

Найдите значение выражения: sin(-п/6)cos(-п/4)tg(-п/3)ПОМАГИТЕ НУЖЕН!...

Danil185071

05.09.2021 19:20

В связи с чем между собеседниками легла темная пропасть взаимного недоверия и непонимания?...

Dan1la1

20.10.2021 07:44

Какие последствия для организма несет в себе неправильное пиьание???...

Fire73

13.06.2022 07:11

Розвяжіть графічну систему рівняннь {y=x2-4x {2x-y=8...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку