√(x-0,3)^2 =|x-0,3|
Поэтому можно так:
Var
x:real;
Begin
Write('x = ');
Read(x);
Write('y = ',sqrt(sqr(x-0.3)))
End.
а можно так:
Var
x:real;
Begin
Write('x = ');
Read(x);
Write('y = ',abs(x-0.3))
End.
Ответ:
1) 1 Тбайт
2) 0,5 Мбайт
3)500 Кбайт
4)1600 байт
1) Ошибка "Нельзя преобразовать тип real к integer"
При исправлении
var
a, b: real;
begin
a := 26 mod 11;
b := 3;
b := 6 + a * b;
a := b / 3 * a;
writeln(a);
end.
выдает 24
2) 52
program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
11101(2)=1D(16)
11101(8)=1241(16)
сумма 125Е(16)