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.
Ну, без понятия на каком языке писать - задача не решаема.
Однако, на "метаязыке":
задать массив МАТРИЦА[5,5];
получить ввод в ВВОД;
если ВВОД = 's', то {
СУММА = 0;
X = 1;
продолжать, пока X <= 5 {
СУММА = СУММА + МАТРИЦА[X,X];
X = X + 1;
}
вывести СУММА;
} иначе, если ВВОД равен 'a' или 'b' или 'c', то {
X = 1;
продолжать, пока X <= 5 {
СреднАрифм = 0;
Y = 1;
продолжать, пока Y <= 5 {
СреднАрифм = СреднАрифм + МАТРИЦА[X,Y];
Y = Y + 1;
}
вывести СреднАрифм / 5;
X = X + 1;
}
} иначе, если ВВОД = 'm', то {
МИНИМУМ = МАТРИЦА[1,1];
МАКСИМУМ = МАТРИЦА[1,1];
X = 1;
продолжать, пока X <= 5 {
Y = 1;
продолжать, пока Y <= 5 {
если МАТРИЦА[X,Y] < МИНИМУМ то МИНИМУМ = МАТРИЦА[X,Y];
если МАТРИЦА[X,Y] > МАКСИМУМ то МАКСИМУМ = МАТРИЦА[X,Y];
Y = Y + 1;
}
}
вывести МИНИМУМ;
вывести МАКСИМУМ;
}