Ученик вычислил число 40! и записал на бумажке. у него потекла ручка и одна цифра оказалась замазана. что это за число? 81591528324789773434561126959611(замазано)894272

!

В цикле проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. Если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. Ясно? Если нет, могу написать программу, но лучше чтобы вам было ясно

UPD: можно через массивы, но это не хардкорно

a, max, counter   :   integer;
begin
max := 0;
for counter = 1 To 15 Do
   begin
   writeln("Write ur number:");
   readln(a);
   if (a mod 2) = 0 then 
       if a > max then max := a;
   end;
writeln(max);
readln();
end.

–––––––––––––––––––––––––––––––––––
Вам Б-г

   

program xyz;

var

 D: array [1..25] of Integer;

 i, imin, imax, amin, amax, s, p: Integer;

 aver: Double;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (D) to High (D) do begin

   D [i] := Random (101);

   Write (D [i], ' ');

 end;

 imin := Low (D);

 imax := Low (D);

 amin := D [Low (D)];

 amax := D [Low (D)];

 s := 0;

 for i := Low (D) to High (D) do begin

   s := s + D [i];

   if D [i] < amin then begin

     amin := D [i];

     imin := i;

   end;

   if D [i] > amax then begin

     amax := D [i];

     imax := i;

   end;

 end;

 Aver := s / 25;

 p := 1;

 for i := Low (D) to High (D) do begin

   if D [i] > Aver then

     p := p * D [i];

 end;

 WriteLn;

 WriteLn ('Минимальное значение = ', amin);

 WriteLn ('Индекс = ', imin);

 WriteLn ('Максимальное значение = ', amax);

 WriteLn ('Индекс = ', imax);

 WriteLn ('Среднее арифметическое = ', aver :10 :5);

 WriteLn ('Произведение = ', p);

 ReadLn;

end.