Организуйте в консольном приложении ввод массива полярных координат n точек на плоскости. вычислите массив декартовых координат этих точек и организуйте вывод этого массива. обеспечьте контроль вводимых значений. организуйте в windows приложении ввод массива полярных координат n точек на плоскости. вычислите массив декартовых координат этих точек и организуйте вывод этого массива. обеспечьте контроль вводимых значений.

Var s,i,n: integer; begin   readln(n); //цикл for   s: =0;   i: =0;   for i: =1 to n do s: =s+i+1;   writeln(s); //цикл while   s: =0;   i: =0;   while i< n do begin         i: =i+1;         s: =s+i+1;   end; writeln(s); //цикл repeat   s: =0;   i: =0;   repeat         i: =i+1;         s: =s+i+1;   until i=n;   writeln(s); end.

Var   s: string;   i, j, n: integer;   c: char;   flag: boolean; begin   write('введите число: '); readln(s);   flag : = false;   n : = length(s);   i : = 1;   while (i < = n) and (not flag) do   begin       c : = s[i];       j : = i + 1;       while (j < = n) and (not flag) do           if s[j] = c then flag : = true else j : = j + 1;       if (not flag) then i : = i + 1   end;   if flag then writeln('символ "', c, '" встречается больше одного раза')   else writeln('все символы разные') end.