По информатике решите в паскале плз : 3 3.дано натуральное трехзначное число. определить и вывести на экран большую цифру этого числа.

Var x,x1,x2,x3: integer; begin write('введите число'); readln(x); x1: =x mod 10; x2: =x div 100; x3: =(x div 10) mod 10; if (x1> x2) and (x1> x3) then write(x1); if (x2> x1) and (x2> x3) then write(x2); if (x3> x2) and (x3> x1) then write(x3); readln end.

Разберем по порядку. итак: 1 проход цикла: (а < =8)? да. k: =k+1 --> k=2; a: =a+2 -->   a=2 2 проход цикла: (а < =8)? да. k: =k+1 --> k=3; a: =a+2 -->   a=4 3 проход цикла: (а < =8)? да. k: =k+1 --> k=4; a: =a+2 -->   a=6 4 проход цикла: (а < =8)? да. k: =k+1 --> k=5; a: =a+2 -->   a=8 5 проход цикла: (а < =8)? да! k: =k+1 --> k=6; a: =a+2 -->   a=10 6 проход цикла: (а < =8)? нет.. выход из цикла. в результате, переменная k=6.

Const   dm: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31); var   d,m,y,dfeb: integer; begin   write('введите дату в формате день месяц год: ');   read(d,m,y);   if (m=2) and (d> =28) then begin       if ((y mod 4=0) and (y mod 100 < > 0)) or           ((y mod 100=0) and (y mod 400 =0)) then dfeb: =29       else dfeb: =29;       if d=dfeb then begin d: =1; inc(m) end       else inc(d);       if m=13 then begin m: =1; inc(y) end   end   else begin       inc(d);       if d> dm[m] then begin d: =1; inc(m) end;       if m=13 then begin m: =1; inc(y) end   end;   writeln('следующая дата ',d,' ',m,' ',y) end.