№ 2
var
n,i,j:integer;
s,s1:string;
begin
readln(S);
for n:=1 to 9 do
begin
str(n,s1);
for i:=1 to length(S) do
if s[i]=s1 then
inc(j);
writeln('Цифр ',n,' всего ',j);
j:=0;
end;end.
<span>№4
</span>var
<span>a:array[1..100] of integer;
kmax,max,i,n:integer;
begin
readln(n);
read (a[1]);
max:=a[1];
kmax:=1;
for i:=2 to n do
begin
read(a[i]);
if a[i]=max then
inc(kmax);
if a[i]>max then
begin
max:=a[i];
kmax:=1;
end;
end;
writeln;
writeln('Максимальное число =',max,' В массиве оно встречается ',kmax,' раз');
<span>end.</span></span>
Первым действием,что 7950:3=2650 байта на одну страницу...
Существует несколько вариантов юникода: в UTF-32 используется 4 байта на символ, в UTF-16 - 2 байта, в UTF-8 разные символы кодируются разным числом байтов.
Так что в зависимости от того, что твой преподаватель считает юникодом, может быть 2 ответа:
UTF-16: 2650/2/25=53 строки
<span>UTF-32: 2650/4/25=26.5 строк</span>
nst N=15;
var
a: array [1..N] of integer;
i,i1:integer;
flag:boolean;
begin
flag:=false;
for i:=1 to N do
begin
a[i]:=random(41)-20;
if (flag=false) and (a[i]<0) then
begin
i1:=i;
flag:=true;
end;
write(a[i]:4);
end;
writeln;
if flag then
writeln('Первое отрицательное на ',i1,' позиции')
else writeln('Отрицательных нет');
end.
Замечание: предполагается, что в имени файла нет ".".
program qq;
var s:string;
begin
writeln('Введите имя файла:');
readln(s);
s:=copy(s,1,pos('.',s))+'exe';
writeln(s);
end.
Пример:
Введите имя файла:
Привет.txt
Привет.exe