1. переведите из одной системы счисления в другую а) 62в10 б)

Род буквой б будет сто девять

1. uses crt; const m=8; var n,i,b,c,p,k: integer; a: array[1..m] of integer; begin readln(n); b: =n; k: =1; repeat c: =b mod 10; a[k]: =c; b: =b div 10; inc(k); until b=0; repeat p: =0; for i: =1 to k-1 do if a[i]< a[i+1] then begin p: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until p=0; for i: =1 to k-1 do write(a[i]); end. 2. uses crt; const n=99; var i,j: integer; begin for i: =10 to n do for j: =10 to n do if ((i*i+j*j)mod 17=0) then write(i,' ',j,'    '); end.

Var   a, b, c, del : integer; begin   write('введите число a: ');   readln(a);   write('введите число b: ');   readln(b);   write('введите число c: ');   readln(c);   write('введите делитель: ');   readln(del);   write('число ', del, ' является делителем таких  чисел:   ');   if a mod del = 0 then write(a, ' ');     if b mod del = 0 then write(b, ' ');     if c mod del = 0 then write(c, ' '); end.