Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>
var
i, c : byte;
t : integer;
begin
c := 0;
for i := 1 to 10 do
begin
read (t);
if t mod 2 = 0 then inc (c);
end;
writeln (c);
end.
var
n, i : integer;
begin
read (n);
for i := 100 to 999 do
if i mod 10 + i div 10 mod 10 + i div 100 = n then writeln (i);
end.
var
i : integer;
begin
for i := 100 to 999 do
if i mod 10 = i div 100 then writeln (i);
end.
1)
64 Кбайт = 2^6 *2^13 бит = 2^19 бит
128*512 = 2^7 * 2^9=2^16
2^19 : 2^16 = 2^3 = 8 бит для одного цвета (пикселя)
Восемью битами можно закодировать 2^8 = 256 цветов
ответ 256
2)
65536 = 2^16 ----> 16 бит - один пиксель 16 =2^4
1280*1024= 5*256*1024=5*2^8*2^10 = 5*2^18
F= 5*2^18 * 2^4 = 5*2^22 (бит) = 5*2^19 (байт) =5*2^9 (Кбайт)=
= 5*512 (Кбайт) = 2560 (Кбайт) = 2,5 (Мбайт)
Var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.