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

116

482

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

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

Misis11

Информатика

4,4(54 оценок)

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.