1. дано целое число а. не пользуясь никакими арифметическими операциями, кроме умножения, получите а19 за 6 операций. можно использовать дополнительные переменные2. составьте программу на языке паскаль для вычисления y по формуле , где - заданное целое число.3. определите значения переменных a, b, c, x после выполнения программы на паскале, если при вводе их значения равны a=15, b=5, c=10: program primer; var a, b, c, x: integer; begin readln (a, b, c); x: =a-b+c; a: =b*5; b: =с+b; с: =b; b: =a*3; writeln (‘a=’, a, ’b=’, b, ‘c=’, c, ‘x=’, x)end.4. определите значение переменной х после выполнения фрагмента программы на паскале: а: =1; в: =а/2*4; х: =2; if a< =b then x: =5 else x: =a+b-x; 5. напишите программу на паскале для решения следующей : даны два числа x и y, не равные друг другу. меньшее из этих чисел замените их частным, а большее их удвоенной разностью. 6.
Объяснение:
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int N;
cin >> N;
vector<vector<int>> a(N,vector<int> (N,0));
for (int i = 0; i < N; i++)
for (int j = 0; j < N; j++)
cin>> a[i][j];
for (int i = 0; i < N; i++) {
for (int j = i; j < N; j++)
swap(a[j][i], a[i][j]);
}
cout << endl;
for (int i = 0; i < N; i++) {
for (int j = 0; j < N; j++)
cout << a[i][j] << " ";
cout << endl;
}
return 0;
}
#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
int mas[a][a];
for(int i = 0; i<a; i++){
for(int g = 0; g<a; g++){
int t;
cin >> t;
mas[i][g] = t;
}
}
for(int i = 0; i<a; i++){
swap(mas[i][i] , mas[a-i-1][i]);
}
for(int i = 0; i<a; i++){
for(int g = 0; g<a; g++){
cout << mas[i][g] << ' ';
}
cout << endl;
}
}
Объяснение: