Значит так,в 5 номере мы имеем две команды: 1 - возведи в квадрат и 2 - прибавь 1. По условию из числа 1 мы должны сделать число 10 используя не более четырёх команд. Поехали.
2 (добавляется +1 к числу 1)
1 (возводит в квадрат наше число,значение которого уже равно двум)
2 (добавляет +1 к нашему числу,имеющее значение 8)
2 (добавляет +1 нашему числу,имеющее значение 9)
Вот так вот у нас получилось число 10.
Так же есть второй способ,не буду его расписывать,укажу в ответе.
Ответ : 1) 2 1 2 2 либо 2) 2 2 1 2
В 6 задании идентичная задача.Цель: из 4 получить 58.Перейдём сразу к решению.
1 (добавляется +3 к числу 4)
2 (возводится в квадрат число 7)
1 (добавляется +3 к 49)
1 (добавляется +3 к 52)
1 (добавляется +3 к 55)
Ответ: 1 2 1 1 1
162 mb/3*60sec = x/360
162/3/60= 0,9
360 * 0,9 = 400
Как то так
Ну? Понятно, 16 рядов, 32 места в каждом... продали ОДИН БИЛЕТ В ВОСЬМОМ РЯДУ, номер 8 ... и что ??? Какой вопрос задачи?;)
Ответ: Файл это структура данных, которая распознается компьютером как одно целое. Название файлов и папок не должны содержать символы / \ | : * ? “ < > и превышать 255 символов.
Const NN=50;
Var
a:array [1..NN,1..NN] of integer;
maxi,maxj,mini,minj,i,j,n,m:integer;
begin
writeln('Введите кол-во строк и столбцов массива: ');
readln(n,m);
for i:= 1 to n do
for j:= 1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln; writeln('Получившийся массив: ');
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:= 1 to n do
for j:= 1 to m do
begin
if a[i,j]>a[maxi,maxj] then
begin
maxi:=i;
maxj:=j;
end
else if a[i,j]<a[mini,minj] then
begin
mini:=i;
minj:=j;
end;
end;
writeln; writeln('Получившийся массив: ');
i:=a[maxi,maxj];
a[maxi,maxj]:=a[mini,minj];
a[mini,minj]:=i;
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
end.