program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
На три вроде),...........................
<span>все просто, что бы определить какой цифрой закончится число, надо взять последнюю цифру этого числа и возвести ее в квадрат. Затем, если число двузначное, то ответом будет послденяя цифра поученного числа или если число однозначное, то оно и будет ответом.
<span>var a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>write(sqr(a) mod 10); </span>
<span>end.</span></span>
24576 бит = 3072 байт = 3 КиБ
16384 бит = 2048 байт = 2 КиБ
12288 бит = 1536 байт = 1,5 КиБ
бит = 8192 бит = 1024 байта = 1 КиБ
16384 бит = 2048 байт (
байт) = 2 КиБ
131072 бит = 16384 байт = 16 КиБ