Написать программы на паскале: 1)дана последовательность чисел а1,а2,.указать наименьшую длину числовой оси,содержащую все эти числа(я так понял,что надо найти разницу между максимальным числом и минимальным); 2)дано натуральное число n.вычислить: s=1+1/2+1/4+1/8+1/16+/(2^n); 3)дано натуральное число.поменять порядок следования цифр в этом числе на обратный или сообщить,что это невозможно в силу переполнения.

292

336

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

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

МаргаритаБелыйЯр2015

Информатика

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

1) все правильно, это и будет разность между максимумом и минимумом program one; var input,max,min: integer; i: integer; begin readln(input); max: =input; min: =input; for i: =2 to 25 do begin readln(input); if input> max then max: =input; if input< min then min: =input; end; writeln(max-min); end. 2) гораздо проще не суммировать в цикле степени половины, а воспользоваться тем, что . program two; var res: real; i,n: integer; begin readln(n); res: =0.5; for i: =2 to n do res*=0.5; res: =2-res; writeln(res); end. 3) здесь существует несколько способов реализации; в частности, можно было просто считать число как строку и возвратить ее в перевернутом виде (reversestring( не заботясь о переполнении, однако я решил, что по логике нужно делать через числа. впрочем, для выявления случаев переполнения все равно используется переворот строки program three; var a,b: int64; {можно использовать uint64, если в вашей среде паскаля этот тип поддерживается, тогда число в строке ниже надо заменить} begin readln(a); if reversestring(inttostr(a))> '9223372036854775807' then writeln('слишком много') else begin while a> 0 do begin b: =10*b+a mod 10; a: =a div 10; end; writeln(b); end; end.

letsplei1212

Информатика

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

Необходимо проверить равенство всех введенных величин

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

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

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

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

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

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

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

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

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

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