Машина Поста(Алго2000) - сложение длин массивов (

Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 29 [Я сдаю экзамен по информатике]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 29 символов на 16 и получим 464 бит [29*16=464 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 464 бит на 8 получаем 58 [464/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 58 байт на 1024 (советую использовать калькулятор) получаем 0,06 кбайт [58/1024=0,05664062].

В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 58 байт или 0,06 кбайт]

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.