Ответ:
Код и пример вывода в прикрепленных файлах ниже.
Объяснение:
65(7)=5+6*7=47(10)
47(10)=101111(2)
Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764
В строке "Слово не воробей, вылетит — не поймаешь!" 40 символов.
При использовании кодировки Unicode размер составит
40*16 бит = 40*16/8 байт = 40*2 байт = 80 байт
Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.