Боря Енин, Гриша Петров, Вова Иванов, Паша не помню.
Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.
Ответ:
4
Объяснение:
1) 64 кбайт = 65536 байт = 524288 бит
2) 524288 : 4096 бит = 128 секунд
3) 128 * 256 = 32768 бит = 4096 байт = 4 кбайт
Ответ: 4 кбайт
1. из кбайтов в байты надо разделить на 1024, из байтов в биты надо разделить на 8.
2. Из битов в байты надо умножить на 8, из байтов в кбайты надо умножить на 1024...
Program task;
var a,b,c,d,n,s:longint;
begin
writeln('vvedite chislo 4-значноe chislo');read(a);
b:= a div 1000;
c:= a div 100 mod 10;
d:= a div 10 mod 10 ;
n:= a mod 10;
writeln('n=',n);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('s=',b+c+d+n);
end.
Вот ответ . На рисунке . Треугольников 4 .