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

Составьте программу, которая вычисляет произведение чисел от 1 до 100!

Ответ:

Witch23

16.07.2020 22:57

Var a:real;
i:integer;
begin
a:=1;
for i:=1 to 100 do
begin
a:=i*a;
writeln(a);
end;
end.

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

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

AIDA196

02.10.2022 13:59

Вид графического дизайна, направленный на разработку и оформление объектов информационной среды интернета, призванный обеспечить им высокие потребительские свойства и эстетические...

Mishcka10200

06.06.2023 01:04

Запишите следующие числа в экспоненциальной форме с нормализованной мантиссой - правильной дробью ,имеющей после запятой цифру,отличную от нуля : а.217,934₁₀б.75321₁₀в.0,00101₁₀ можно...

solnyshko46

06.06.2023 01:04

Сообщение, записанное буквами из 32-символьного алфавита, содержит 30 символов. какой объем информации оно несет? а) 960 байт б) 150 бит в) 150 байт г) 1,5 кбайт...

Pidoraser

06.06.2023 01:04

Мне нужна марка машини opel в програме pascaleabc 30...

goverdovskay123

06.06.2023 01:04

Как пользоваться персональным компьютером?...

elina18121959

11.04.2022 17:23

Условия в картинке) найдите значение переменной b после выполнения фрагмента алгоритма...

Matveystori

25.07.2020 15:24

Получив на вход число x, приведённая ниже программа выводит два числа — m и n. var x, m, n: integer; begin readln (x); m:=0; n:=0; while x 0 do begin if n m:=m+1; x:=x div 10; end;...

kravts222p08eoo

24.08.2020 16:34

Расположи в хронологическом порядке появление следующих устройств. (Перемести правильные ответы в нужные окошки.) Варианты ответов:...

Sark23

15.11.2020 11:54

, не могут понять как сделатьДан массив состоящий из 50 элементов, определить сумму элементов 50...

Wer77

17.09.2021 23:42

Шина компьютера — это физическое ??? функциональными блоками, служащее для передачи данных между ними....

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

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