Определяем количество символов на странице:
30*40=1200 байт=9600 бит (т.к. 8 бит =1 байту)
файл 640 кбайт равен
640*1024=655360 байт
определим количество страниц которое поместится в файл
655360/1200=546,13 страницы
следовательно, в файл поместиться 546 страниц
Var
SurName : Array [1..30] of String;
Mark : Array [1..30] of Real;
Cand : Array [1..30] of String;
NPupil, K : Integer;
BEGIN
Write('Сколько всего учеников ? ');
ReadLn(NPupil);
WriteLn('Введите фамилии и оценки учеников :');
For var i := 1 to NPupil do
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);
Write(' Оценка - ');
ReadLn(Mark[i]);
end; WriteLn;
K:=0;
For var i := 1 to NPupil do
If Mark[i]=2 then
begin
K:=K+1;
Cand[K] := SurName[i]
end;
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')
else
begin
WriteLn('ДВОЕЧНИКИ :');
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);
end;
END.
Shift + Alt типично. или в настройках языка
X=[15,1,0,255,12,38,154,36,794,2,54,-69] #массив
Z=[] #пустой массив
#запоминаем первый элемент из массива X как минимальный и максимальный
minc=X[0]
minind=0
maxc=X[0]
maxind=0
k=-1 #переменная-счетчик
for i in range(len(X)): #цикл
if i%2==0:
k+=1
Z.append(X[i]) #добавляем элемент Z[i], если i - четный
print(Z)
# проверка на минимум и максимум
if X[i]>maxc:
maxc,maxind=X[i],k
if X[i]<minc:
minc,minind=X[i],k
print(minind,maxind,k)
Z[minind]=maxc
Z[maxind]=minc
print(Z)
Неправильно записанные: а, б.
Объяснение:
а: У закрывающего тега нет атрибутов
б: Тега size вообще не существует, а если это атрибут он не может писаться отдельно от открывающего тега... А вообще еще по правилам html 5 у само закрывающихся тегах на конце пишется /: <br /> <hr />
...
Все остальные верны, так как:
в: Абзац, выравненный по центру
г: Закрывающий тег <h1>
д: <font> - Контейнер для изменения характеристик текста в нем. В данном случае в нем будет текст со шрифтом Arial
...
Если не сложно нажми "Спасибо" ;)