ІВ!ПАЙТОН!1.Напишіть програму для обчислення виразу, використовуючи алгоритм повного розгалуження. Параметри a i b запитуються у користувача. (2а-b):(a+2b) 2.Маємо рівняння виду x=a+b/(c-3)(c-2). Параметри a, b i c запитуються у користувача. Задачею програми буде розв’язати дане рівняння та вивести чому дорівнює x.
3.Маємо рівняння виду a/x-3=b . Параметри a i b запитуються у користувача. Задачею програми буде розв’язати дане рівняння та вивести чому дорівнює x;
4.Маємо рівняння виду c=a+b/(x-3)(x-2) . Параметри a, b i c запитуються у користувача. Задачею програми буде розв’язати дане рівняння та вивести чому дорівнює x.
5.Записати у змінну А найменше з трьох чисел, у змінну В - середнє, у змінну С - найбільше з трьох чисел.
Чтобы решить эту задачу, воспользуемся методом программирования:
1) напишем функцию, которая получает число в качестве аргумента и моделируя процесс преобразивания из условия возвращает результат:
int f(int n){
int d[4];
for(int i = 0; i < 4; i++){
d[3 - i] = n % 10;
n /= 10;
}
int u = d[0] + d[3], v = d[1] + d[2];
string res;
u < v ? res += to_string(u) + to_string(v) : res += to_string(v) + to_string(u);
return stoi(res);
}
2) так как нам нужно найти наибольшее четырехзначаное число, дающее результат 815, то запускаем цикл, идущий от самого большого четырехзначного числа(9999) до самого маленького(1000), и как только нам встретится число, дающее в результате нужное число(815), выведем его в консоль, и закончим работу программы, то, что выведет программа и будет ответом:
полный код(результат работы на фото) :
#include <iostream>
using namespace std;
int f(int n){
int d[4];
for(int i = 0; i < 4; i++){
d[3 - i] = n % 10;
n /= 10;
}
int u = d[0] + d[3], v = d[1] + d[2];
string res;
u < v ? res += to_string(u) + to_string(v) : res += to_string(v) + to_string(u);
return stoi(res);
}
int main(){
for(int i = 9999; i >= 1000; i--){
if(f(i) == 815){
cout << i;
return 0;
}
}
}
ответ: 9806
а)
Program tt;
var t,z,x,y:integer;
begin
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if x>0 then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
б)
Program tt;
var t,z,x,y:integer;
begin
writeln ('Введите x, z, y');
read (x,z,y);
t:=z+x+y;
if (x=y) or (y=z) or (x=z) then
Writeln (t,' = TRUE')
else
Writeln (t,' = FALSE')
end.
в)
Program tt;
var A,B,C,t: Real;
begin
Writeln ('Введите коэффициенты: A B C');
Readln(A,B,C);
t := B * B - 4 * A * C;
if t < 0 then
Writeln (t,' = TRUE')
Else
Writeln (t,' = FALSE')
End.