Создать одномерный массив, элементы которого являются суммой квадратов цифр индекса. использовать функцию подсчета суммы квадратов цифр числа. , !

men rusca bawa duwmurem.

#include< stdio.h> #include< stdlib.h> #include< conio.h> int main() {     int n,k,pr;     printf("n = ");       scanf("%i",& n);   //поиск чисел     for (int i=1; i< n+1; i++)     {         k=i;   pr=0;         while (k> 0)        {             if % 10)==0) or (i % (k % 10)> 0))              {   pr=1;   break;   }             k=k/10;         }       if (pr==0)   printf("%i   ",i);     }     printf("\n");     getch();     return(0); }

var

  t : string;

  f : text;

  i, k : integer;

begin

  assign(f, 'file.txt');

// создаем файл

  rewrite(f);

  repeat

    write('вводим строку(окончание ввода "~"): ');

    readln(s);

    writeln(f, s)

  until t = '~';

  close(f);

  writeln('нажмите ');

  readln;

  // считаем символы

  reset(f);

  k : = 0;

  while not eof(f) do

  begin

    readln(f, t);

    for i : = 1 to length(s) do inc(k)      

  end;

  close(f);

  writeln('символов в файле: ', k)

end.