блок - схема

[lodos]

здравствуйте. Нужна помощь по созданию блок - схемы для 2 простых задач

program qwerty;
var
  i, maxind: integer;
  max:= x / 1000;
begin
  max:= 1 / 1000;
  for i:= 1001 to 9999 do
    begin
      x:= (i mod 10 + i div 10 mod 10 + i div 100 mod 10 + i div 1000) /i;
      if x > max then
       begin
       max:= x;
       maxind:= i;
      end;
     end;
     writeln ('macsimum = ', max:4:3);
     writeln ('chislo = ', maxind);
    readln;
   end.

program qwerty;
var
  i, iMin : longint;
  sum, proiz : integer;
  min : real;
begin
  iMin := -1;
  min := 99999;
  for i := 10000 to 99999 do begin
    sum := (i mod 10 + i div 10 mod 10 + i div 100 mod 10 + i div 1000 mod 10 + i div 10000) ;
    proiz := (i mod 10) * (i div 10000);
    if proiz<>0 then
      if  (sum / proiz) < min then begin
         iMin := i;
         min := (sum / proiz);
      end;
    { if x > max then max := x;}
  end;
  WriteLn('Минимальное отношение = ', min:12:6,' при числе ',iMin);
  readln;
end.

зарание спасибо

[Smitt&Wesson]

Вашь бюджет? Контакты в подписи.

[lodos]

бедный студент

[Smitt&Wesson]

Бедный прогрраммист

[lodos]

точняк можешь помочь задачи наилегкиешие

[Smitt&Wesson]

Сообщение от lodos

точняк можешь помочь задачи наилегкиешие

Могу. Код, наипростейший.

[lodos]

так что поможешь просто прогу накатал, а там когда учили блок схемы видать чуток недопонял

[lodos]

помогите пожалуйста времени совсем не осталось

[lodos]

помгите. help

[Vanta11a]

Вот тут все написано