0 раздели на 2.Чему будет равно?
А div - просто убирает остаток.
Например 10 div 3 будет 3,33, а компилятор тебе покажет просто 3.
Зимы бывают очень снежными - порой все улицы заметены снегом, и именно поэтому многие люди любят ее: некоторые дети катаются на коньках или играют в снежки.
Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо 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.
Var a,b,c:array[1..9] of Longint;
i,k:longint;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
read(b[i]);
end;
for i:=1 to 9 do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
<span>end.</span>
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.
