Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.
А равен 2, а B равен 0.5.
2 <= 0.5 - это не так, и выполняется другое условие, то есть X:=A+B-X. X = 2+0.5-1. И Х у нас будет равен 1.5
Ответ: X = 1.5
Дано: N= 65536, k= 10*64*32=20480.
Найти: I-?.
Решение: I = k*i
N=65536=2 ( в 8 степени)
i= 8
I= 20480*8=163840 битов)
160 ( килобайт)
Ответ: I = 160 килобайт
Всё)
Номер 3
program ggg;uses GraphABC;var r: integer;beginwriteln('введи число');readln(r);writeln(r div 60:0:2,'минут',r-60,'секунд');end.