Религия праздник Крещенья​

Это один из самых древних праздников христианской Церкви, и его установление относится еще ко временам апостолов. Он посвящен событию евангельской истории – Крещению Иисуса Христа в реке Иордан Иоанном Крестителем.

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.