Надо было написать бы еще среду программирования. Пишу на Qbasic
MCMXCVII = 1997;
Ответ: 1997;
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
<span>1)рабочий лист, с которым в данный момент работает пользователь
</span>
- параметры, которыми определяется «внешний вид» ячейки и её содержимого
<span>- форма данных ячейки
</span>
- распространение выполняется протягиванием по ячейкам ЭТ при нажатой левой клавиши мыши
<span>- при этом содержимое выделенной ячейки не помещается в буфер обмена информацией, в отличие от операции копирования
</span>
<span>- указатель на ячейку
</span>
<span>- из вычисляемых значений номеров пересечения строки и столбца</span>
Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.
Пример:
21 14
7 2