Ш
Size: a a a
Ш
GB
Ш
GB
Ш
АВ
Ш
GB
E
program 2grad;
var
m, n, i, j, start: integer;
begin
writeln('j) (2^m)^n;');
write('Enter n and m: ');
read(n, m);
write('((2^,', m, '))^', n, ') = ');
start := 2;
for i := 2 to m do
start := start * 2;
for j := 2 to n do
start := start * 2;
writeln(start);
end.
AS
program 2grad;
var
m, n, i, j, start: integer;
begin
writeln('j) (2^m)^n;');
write('Enter n and m: ');
read(n, m);
write('((2^,', m, '))^', n, ') = ');
start := 2;
for i := 2 to m do
start := start * 2;
for j := 2 to n do
start := start * 2;
writeln(start);
end.
E
I
program
не было, наверноE
E
Y
a := b ** c
;Y
RS
index
, которое можно использовать в свойствах для того, чтобы использовать один геттер (то есть тот метод, который идет после read
в property
). К примеру, конструкция ниже нормально бы скомпилировалась. { TValuteList }
TValuteList = class
private
function GetValutes(Index: Integer): TValuteItem;
public
constructor Create;
destructor Destroy; override;
property Valutes[Index: Integer]: TValuteItem read GetValutes;
published
property GBP: TValuteItem index 1 GetValutes;
property USD: TValuteItem index 2 GetValutes;
property EUR: TValuteItem index 3 GetValutes;
... ... ... ...
property CNY: TValuteItem index 25 GetValutes;
end;
Подробнее о таких конструкциях https://www.freepascal.org/docs-html/ref/refsu34.htmlUSD
можно обратится вот так TValueList.USD
и вот так TValueList.Valutes[2]
. Можно использовать таки в качестве индекса и строковый тип как в примеру приведенном мною изначально, но не скомпилируется конструкция property
GBP
, USD
, EUR
и т.д. c index, так как она к сожалению поддерживает только Integer
AZ
RS
AZ