С помощью знака $ ссылка на адрес ячейки может быть абсолютной и смешанной. Относительная ссылка знака $ не имеет.
Варианты 2 и 4 - содержат смешанную ссылку.
Вариант 3 - абсолютную.
Program zadanie;
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
Var
i, n, j, p, s: longint;
st: string;
b: boolean;
begin
s := 0;
b := false;
readln(n);
for i := 1 to n.ToString.Length do
s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
begin
st := i.ToString;
p := 1;
for j := 1 to st.Length do
p := p * strtoint(st[j]);
if(p = s) then begin b := true;writeln(i); end;
end;
if(b = false) then write('Нет');
end.
217 бит = 217/8 байт=27,125 байт = 27,125/1024 Кбайт ≈ 0.26 Кбайт