Р-схема

[Julila]

Может кто то сделать

Р-схема
для этиой программки паскалевской. буду благодарна. сама просто не умею, а для лабораторной нужна)

program skub;
var
  n, j, s, jn: integer;
begin
  write( 'Vvedite chislo= ');
  readln(n);
  writeln('Resultat : ');
    for j := 1 to n do
      begin
       s := 0;
       jn := j;
        while jn <> 0 do
          begin
            s := s + sqr(jn mod 10) * (jn mod 10);
            jn := jn div 10;
          end;
      if s = j then
     writeln(j);
   end;
   readln;
end.

[Stilet]

А что такое Р-схема ?

[raxp]

е-мае, чего только не придумают... может это http://standards.narod.ru/gosts/gost19/19-005-85.htm ?

[Julila]

е-мае, чего только не придумают... может это http://standards.narod.ru/gosts/gost19/19-005-85.htm  ?

да да вот это) не умею(

[KobolD]

Так тебе блоксхема чтоли нужна, только по ГОСТу оформленная?