√(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.
(5*60*16*64)/1024=(75*2^2*2^4*2^6)/2^10=75*4=300(Мб)
1. Переведём к одним и тем же единицам
100 МБит = 100/8 = 12,5 МБайт
2.
12,5/1,39 = 8,9928
3. Округлим вверх
<span>8,9928 -> 9 шт
Это ответ
</span>
//Pascal
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.