1. a :=x•x(1-умножение. a=x^2)
2. b :=x•a(2-умножение. b=x^3)
3. c :=b•b(3-умножение. c=x^6)
4. d :=c•c(4-умножение. d=x^12)
5. e :=d•d(5-умножение. e=x^15)
A:=7;
b:=4;
a:=5*b-2*a; a:=5*4-2*7=6;
b:=a/3*8+5*b; b:=6/3*8+5*4=36
800*600 = 480000 бит = 58.6 Кб.
i=4 бита
N=2^4 = 16 цветов.
uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.