For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}
Запишем формулу
2^i=N
N=64
В какую степень возвести 2, чтобы получить 64?
В 6 степень
1 символ = 6 бит
100 символов соответственно весит 600 бит
Program maximum_value;
var
a, b, m: integer;
begin
read(a, b);
if a >= b then
m := a
else m := b;
writeln(m);
end.
Program summa;
uses crt;
var a, s, m, i:integer;
begin
clrscr;
read(i);
s:=0;
while i<>0 do begin
m:=a mod 10;
s:=s+m;
a:=a mod 10;
a:=i+s; end;
write('s=',s);
end.