Информатика: Паскаль абс вычислить : 1*3*5**23*25

fafab232

12.05.2021 01:13

Информатика

Есть ответ 👍

Паскаль абс вычислить : 135**23*25

257

362

Посмотреть ответы 3

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

MILKovka

Информатика

4,6(22 оценок)

//pascalabc.net 3.1 сборка 1239 begin println(range(1, 25, 2).aggregate(1.0, (s, x)-> s * x)); end. ответ 7905853580625

Zalina4272Bdjdkxc

Информатика

4,7(78 оценок)

//pascal abc.net v3.1 сборка 1219 var i,a: int64; begin a: =1; for i: =1 to 25 do a: =a*i; writeln(a); end.

kris0287

Информатика

4,6(53 оценок)

Var m: array[0..1000] of longint; n,i: longint; procedure tf; var q,j: longint; o: array[1..10] of longint; begin write(m[1],' '); q: =1; o[q]: =m[1]; i: =1; while q< > 3 do begin i: =i+1; if q=1 then if m[i]< > o[1] then begin write(m[i],' '); q: =q+1; o[q]: =m[i]; end; if q=2 then if (m[i]< > o[1]) and (m[i]< > o[2]) then begin write(m[i]); q: =q+1; end; end; end; procedure tm; var mk: array[1..10] of longint; begin for i: =1 to 3 do mk[i]: =0; for i: =1 to n do if mk[1]< m[i] then begin mk[3]: =mk[2]; mk[2]: =mk[1]; mk[1]: =m[i]; end else if (mk[2]< m[i]) and (m[i]< > mk[1]) then begin mk[3]: =mk[2]; mk[2]: =m[i]; end else if (mk[3]< m[i]) and (mk[2]< > m[i]) then mk[3]: =m[i]; write(mk[1],' ',mk[2],' ',mk[3]); end; скорее всего это можно было написать чище и оптимальнее, но вот моё решение на скорую руку

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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