Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо 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.
Я бы решила так .
Сама запись решения с объяснениями, поэтому, возможно, нужно как-то по-другому записать
Ярлык - короткий путь до файла
например, ярлык может указывать на файл E:\members\mem.exe
Если же ярлык скопировать на другой компьютер, то файл просто не будет найден, так как ни папки members, ни файла mem.exe на другом компьютере может не быть
Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.
3. Строим таблицу истинности и определяем что функция F принимает значение 0 только при всех трёх аргументах равных единицам. Во всех остальных случаях функция принимает значение 1. Функция F эквивалентна функции.
F = ¬(X₁X₂X₃)
4.
Таблица при которой F принимает значение 0
X₁ X₂ X₃ F
0 0 0 0
0 0 1 0
0 1 0 0
1 0 0 0
1 1 0 0