Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Линейный, циклический, с ветвлением
Var x,y:integer;
begin
write('x = ');
readln(x);
y:=x div 10 mod 10;
writeln('y = ',y);
end.
Пример:
x = 456
y = 5
1) 64 * 128 * (ln(128)/ln(2)) бит = 57344 бит / 8 / 1024 = 7 кбайт.
2) 32 * 1024 * (ln(128)/ln(2)) бит = 229376 бит / 8 / 1024 = 28 кбайт.
3) 128 * 256 = 32768 пикс; (24*1024*8) бит / 32768 пикс = 6 бит на пиксель; где 2^6 = 64 цветов макс. возможное.
4) 128 * 128 = 16384 пикс; (10*1024*8) бит / 16384 пикс = 5 бит на пиксель; где 2^5 = 32 цветов макс. возможное.
АБВГДЕЁЖЗИЙКЛМНОПРСТ....
АСКАР
1 19 12 1 18
11912118
81121911
БУКВА А ПОД НОМЕРОМ 1