Написать программы на паскале: 1)Дана последовательность чисел а1,а2,а3,....,а25.Указать наименьшую длину числовой оси,содержащую все эти числа(я так понял,что надо найти разницу между максимальным числом и минимальным); 2)Дано...
Написать программы на паскале:
1)Дана последовательность чисел а1,а2,а3,....,а25.Указать наименьшую длину числовой оси,содержащую все эти числа(я так понял,что надо найти разницу между максимальным числом и минимальным);
2)Дано натуральное число N.Вычислить: S=1+1/2+1/4+1/8+1/16+...1/(2^N);
3)Дано натуральное число.Поменять порядок следования цифр в этом числе на обратный или сообщить,что это невозможно в силу переполнения.
Гость
Ответ(ы) на вопрос:
Гость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'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.
Не нашли ответ?
Похожие вопросы