Фамилию студента перекодировали из ASCII в Юникод, в результате размер занимаемой ею памяти увеличился на 6 байт. Выберите фамилию студента из приведённых ниже вариантов. 1. Иванов
2. Забубельников
3.
4. Упс

Question

Информатика: Фамилию студента перекодировали из ASCII в Юникод, в результате размер занимаемой ею памяти увеличился на 6 байт. Выберите фамилию студента из приведённых ниже вариантов. 1. Иванов 2. Забубельников 3. 4. Упс

linalimeofficip01ef8 · Accepted Answer

uses crt;
var n,m,i,j,k:integer;
a:array[1..1000] of integer;
begin
repeat
writeln('Введите 2 натуральнвх числа n<m<1000:');
read(n,m);
until
(n>0)and(n<m)and(m<1000);
writeln('Начальный ряд:');
k:=0;
for i:=n to m do
begin
inc(k); a[k]:=i;
write(a[i]:4);
end;
writeln;
while k>=2 do
begin
i:=1;
while i<=k do
begin for j:=i to k-1 do
a[j]:=a[j+1];
k:=k-1;
i:=i+1;
end;
i:=2;
while i<=k do
begin f
or j:=i to k-1 do
a[j]:=a[j+1];
k:=k-1;
i:=i+1;
end;
end;
write(a[k]);
end.

MOGZ ответил