Ответ:
Исходник ниже. В задаче говорится, что чисел ровно 12, поэтому сделал статический массив на константное количество элементов. Если предполагается, что программа должна работать и на других размерах массива, то можно сделать динамический массив или использовать контейнер vector.
Объяснение:
#include <iostream>
int main(){
const int n = 12;
int a[n];
for(int i = 0; i < n; i++){
std::cin >> a[i];
}
bool ascending= true;
for(int i = 1; i < n; i++){
if (a[i-1] > a[i]){
ascending = false;
break;
}
}
if (ascending){
std::cout << "Yes" << std::endl;
}
else{
std::cout << "No" << std::endl;
}
return 0;
}
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
Как-то так, на счет 3 не особо уверен.
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k<=n do
begin
write(k,' ');
k:=k*2;
end;
writeln;
end.
Пример:
n=50
1 2 4 8 16 32
Ответ:Он разрурится
Чтобы робот переместился из точки А в точку В нужна такая последовательность команд : 32324
Объяснение: