program Lyonyshna;
const
Rus = ['А'..'Я', 'а'..'я'];
Lat = ['A',..'Z', 'a'..'z'];
Var f,frus,flat,foth:text;
i: integer;
st,strus,stlat,stoth: string;
begin
Assign(f, 'file1.txt');
Rewrite(f);
write('Введите исходную строку: '); readln(st);
writeln(f,st);
close(f);
strus:='';
stlat:='';
stoth:='';
Reset(f);
Assign(frus, 'russian.txt');
Rewrite(frus);
Assign(flat, 'latin.txt');
Rewrite(flat);
Assign(foth, 'other.txt');
Rewrite(foth);
Readln(f,st);
for i:=1 to length(st) do
if st[i] in rus then strus:=strus+st[i]
else
if st[i] in lat then stlat:=stlat+st[i]
else
stoth:=stoth+st[i];
Writeln(frus,strus);
Writeln(flat,stlat);
Writeln(foth,stoth);
Writeln('Русские символы: ',strus);
Writeln('Латинские символы: ',stlat);
Writeln('Другие символы: ',stoth);
Close(f); Close(frus); Close(flat); Close(foth);
end.
Паскаль АВС. Программа меняет местами половинки массива: (6-10) и (1-5)
Program nana05;
uses crt;
const n=10;
var
a:array [1..10] of integer;
i,j,min,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
writeln('Элементы массива:');
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(100)-50;
write (a[i]:5);
end;
{меняем местами половинки массива}
for i:=1 to 5 do
begin
temp:=a[i];
a[i]:=a[5+i];
a[5+i]:=temp;
end;
writeln();
writeln('Результат:');
for i:=1 to n do
write(a[i]:5);
end.
Дано
K=230*230
I= 16 Кб
Найти
N -?
Решение
I=K*i N=2^i
I=16*1024*8=131072 бита
i=131072/(230*230)=2,5 значит N=2^2,5=6
ответ 6 цветов в палитре
Объяснение: