Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения.
Вот сам код:
program name;
var a, b, c, d, x1, x2, x3: real;
begin
writeln('Введите коэффициенты квадратного уравнения') ;
readln(a, b, c);
d:=sqr(b) - (4*a*c);
x1:= (-b-sqrt(d)) / 2*a;
x2:= (-b+sqrt(d)) / 2*a;
Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ;
readln(x3);
If x3 = x1 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else If x3 = x2 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else
Writeln('Число ', x3, ' не является корнем уравнения.') ;
End.
#include <iostream>
#include <math.h>
using namespace std;
int main() {
cout.precision(10);
double x, y, z;
cin >> x >> y >> z;
if (x>=0) cout << sqrt(x) << " ";
if (y>=0) cout << sqrt(y) << " ";
if (z>=0) cout << sqrt(z);
return 0;
}
1) на Pascal:
var
t,i,j:integer;
a:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
write('Vvedite ',i,'-i 4islo: ');
readln(a<span>);
end;
for i:=2 to 4 do
for j:=4 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
writeln('Raspolagaem 4isla v poryadke vozrastaniya:');
for i:=1 to 4 do
writeln(a<span>);
readln;
end.
2) на С:
#include <stdio.h>
#include <conio.h>
void main(void){
int n,a,b,c,d;
printf("\nVvedite 4x-znachnoe chislo n: ");
scanf("%i", &n);
a=n/1000;
b=(n-a*1000)/100;
c=(n-a*1000-b*100)/10;
d=n-a*1000-b*100-c*10;
if (a+b==c+d) printf("true");
else printf("false");
getch(); </span></span>
Ответ:
модель «Homo economicus».
Модель «советский экономический человек»
Объяснение:
