Var
x, y, z, n: Integer;
begin
ReadLn(n);
z := n mod 10;
y := (n div 10) mod 10;
x := n div 100;
WriteLn('Первое: ', x);
WriteLn('Второе: ', y);
WriteLn('Третье: ', z);
end.
Информацию кодируют для ее более удобного переноса приемнику информации.
Var Y,a,x:real;
c:Integer;
begin
read(a);
x:=0.5;
while x<=4.5 do begin
Y:=a+sqr(x);
writeln('x:',x:2:2,' Y:',Y:2:2);
c:=c+1;
x:=x+0.3;
end;
write('Среднее арифмитическое:',Y/c:2:2);
end.
я думаю что эт правильно
Меньше 4-х тут ничего нету. Обращаем первое: x >= 7. Т. е. это 7 и 8.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a;
double b;
double c;
double x;
cout << "Введите значение a: ";
cin >> a;
cout << "Введите значение b: ";
cin >> b;
cout << "Введите значение c: ";
cin >> c;
if((b*b - 4*a*c) >= 0) //Если дискриминант больше или равен 0
{
x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Первый корень равен " << x << endl;
x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Второй корень равен " << x << endl;
}
else
{
cout << "Дискриминант меньше 0, <span>нет вещественных корней</span>." << endl;
}
return 0;
}