Перевод информации с машинного языка в формы доступные для человеческого восприятия.
Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
640*480 = 307 200пикселей.
307200*3 = 921 600Байт.
921 600Байт*8 =7 372 800Бит
7372800Бит/28800Бит/c=256 секунд
Читают с помощью азбуки Брайля, руки
Procedure SumKol(var n,k,s:integer);
begin
if n>0 then begin
s:=s+n mod 10;
k:=k+1;
n:=n div 10;
SumKol(n,k,s)
end
end;
function Mean(n:integer):real;
var k,s:integer;
begin
k:=0; s:=0;
SumKol(n,k,s);
if k>0 then Mean:=s/k else Mean:=0
end;
var
n,k,s:integer;
m:real;
begin
Read(n);
Writeln(Mean(n))
end.