If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным
Var
x, y: real;
begin
write('x = ');
readln(x);
if (x <= 2) then
y := sqr(x) + 4 * x + 5
else
y := 1 / (sqr(x) + 4 * x + 5);
writeln('F(x) = ', y);
end.
В одном мегабайте 1024 килобайта, в каждом килобайте по 1024 байта.
в тоге получаем,что в 1 мегабайте 1024*1024=1048576 байта.
отсюда следует, что 0,25*1024=256 килобайт ,в итоге 256*1024 байта=262144 байта
1) 35 Кбайт
2) стол
3) 13 . Извини время нет расписывать