Информатика. Написать БЛОК-СХЕМУ и программу (паскаль)
Даю 50б

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000

остатки от деления 72*n на 105 где n начинается с 2

var i, j: integer;

begin for i : = 2 to 100 do writeln(i*72 mod 105); end.

3967845128451189057249663301026936375429814815875421936027996633072396784512845118905724966330102693637542981481587542193602799663307239

дальше идет повторение т.е. нет остатка 1

то же самое будет если делить 105n с остатком на 72 не будет остатка 1