Да, ты правильно сделал там 7
Var
a, b, c, D: integer;
x, x2: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
D := sqr(b) - 4 * a * c;
if D > 0 then begin
x := (-b - sqrt(D)) / 2 * a;
x2 := (-b + sqrt(D)) / 2 * a;
writeln('x1 = ', x, newline, 'x2 = ', x2);
end;
if D < 0 then writeln('Корней нет.');
if D = 0 then begin
x := (-b) / 2 * a;
writeln('x = ', x);
end;
end.
Ответ:Б. Сжать архиватором, передать архим по каналу связи, распаковать.
Объяснение: В формате архива файл занимает меньше места, и тем самым передаётся быстрее.
Достать все нужные вещи для урока.
Послушать учителя и его объяснения.
Приступить к рисованию.
var
n, min : integer;
a : array [1..3] of byte;
begin
read (n);
a[1] := n div 100;
a[2] := n div 10 mod 10;
a[3] := n mod 10;
min := 1;
if a[2] < a[min] then min := 2;
if a[3] < a[min] then min := 3;
writeln (min);
end.