Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте

Pascal var    a,s,d,e : integer;     begin  readln (a);       s : = a div 100; //узнаем цифру сотен  d : = (a div 10) - (a div 100) * 10; //узнаем цифру десятков  e : = a mod 10; //узнаем цифру единиц     case s of    8,9 : a : = a * d;     3..5 : a : = s * 10 + d;       else      a : = a - s;       end;         writeln (a);   end.

будем перебирать i от 1 до [2000/7] = 285. для каждого такого i узнаем, правда ли, что 7i дает остатки 1 при делении на 4, 5 и 6; если это так, то выводим 7i на печать.

free pascal compiler version 3.0.2

var i, n: integer;

begin

    for i : = 1 to 285 do

    begin

        n : = 7 * i;

        if (n mod 4 = 1) and (n mod 5 = 1) and (n mod 6 = 1) then

            writeln(n);

    end;

end.

вывод программы:

301

721

1141

1561

1981

program p1;

uses crt;   вывод окошка

const n = 30;

var a: array [1..n] of integer;

i, max, max2 : integer;

begin

 

  for i: =1 to n do begin   вывод элементов массива с рандома

a[i]: =   random (100);

  write( a[i]: 4);

  end;

          writeln;

    max: = a[1];   принимаем первый элемент массива за макс

    max2: = a[1];   принимаем первый элемент массива за макс

   

  for i: =1 to n do begin               находим первый max                                                                  

    if   max< a[i] then

      max: = a[i];

      end;

       

      for i: =1 to n do begin                             находим второй max2

        if (max2< a[i]) and ( a[i]< > max) then

          max2: = a[i];

          end;

         

          writeln('max=',max);

          writeln('max2=',max2);

          end.