<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Натюрморт';
Println(s[6:8]+s[9]+s[7:9],s[9]+s[7:])
end.
<u>Результат</u>
мотор торт
#include <iostream>
#include <vector>
using namespace std;
typedef pair<int, int> rb;
int main() {
vector<rb> lst;
int n;
cout<<"n = "; cin>>n;
int a[n][n];
for (int i=0; i<n; i++) {
cout<<"row "<<i+1<<": ";
for (int j=0; j<n; j++) cin>>a[i][j];
}
cout<<"list of edges"<<endl;
for (int i=0; i<n; i++)
for (int j=i+1; j<n; j++)
if (a[i][j]>0) lst.push_back(make_pair(i+1,j+1));
for (int i=0; i<lst.size(); i++)
cout<<lst[i].first<<" "<<lst[i].second<<endl;
system("pause");
return 0;
}
Ответ:1)Жесткий диск, 2)Процессор
Объяснение:Думаю правильно
Ответ:
var a,b,k:integer;
begin
readln(a,b);
for k:=a to b do if(k mod 2=1) then write(k, ' ');
end.
Объяснение:
Надеюсь будет понятно!!!
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;(LOG(B28^2)^3)+(LN(B26+B27))^2;EXP(B22+B23+B28)))
Если во второй формуле десятичный логарифм, то так:
=ЕСЛИ(ИЛИ(B28=B27;B28=B26);МАКС(B22^3;B23;B24^3;B25^(1/2))^3;ЕСЛИ(B28<B26;LOG10(B28^2)^3+LN(B26+B27)^2;EXP(B22+B23+B28)))