<span>Это мы не проходили,
Это нам не задавали</span>!
А квадратное уравнение решаемо =)
var a, b, c, d, x1, x2: real;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d >= 0 then begin
if d <> 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b - sqrt(d)) / 2 * a;
writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
end
else begin
x1 := -(b / 2 * a);
writeln('x = ', x1:4:2)
end
end
else begin
writeln('Нет решения');
end
end.
Удачи тебе с остальными)
Количество таких слов N равно числу сочетаний из 3 по 2: N=3!/(2!*(3-2)!)=6/2=3. Ответ: 3 слова.
Любую? тогда так:
var a,b,c:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
c := a + b;
writeln('Ответ:',c)
end.
если что-то не правильно скажи. А то я не могу проверить т.к. компа рядом нету.
Var ma:array[1..4,1..5] of integer;
ar:array[1..20] of integer;
k,i,j:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 4 do
begin;
writeln;
for j:=1 to 5 do
begin;
ma[i,j]:=random(-10,10);
if ma[i,j]<0 then
begin;
inc(k);
ar[k]:=ma[i,j];
end;
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar[i]:4);
<span>end.</span>