Необходимо щёлкнуть ЛКМ(левой кнопкой мышью) и выбрать необходимый файл, который вам понадобился.
В памяти компьютера на кодирование 1 символа требуется 1 байт.
Следовательно 1,25 Мб/1 байт = 1,25*1024*1024=1310720 символов в тексте
Var n,m,p,s:integer;
begin
write('n=');
readln(n);
m:=n;k:=0;
write('цифры, которые >=4 и <=8 : ');
while m<>0 do begin
p:=m mod 10;
m:=m div 10;
if (p>=4) and (p<=8) then begin
write(p,' ');
s:=s+p;
end;
end;
writeln;
writeln('сумма этих цифр = ',s);
end.
Program abc;
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.
Запишем множества:
['Е' , 'Ж', 'И']
['Г', 'Р', 'И', 'Б' , 'Ы']
В этих множествах один одинаковый элемент: 'И'