<span>byte = float(input("Введите число в байтах: "))
if byte>0:
b = byte * pow(10,-12)
k = byte * pow(10,-3)
mb = byte * pow(10,-6)
gig = byte * pow(10,-9)
print(str(byte) + " байт = " + str(k) + " Килобайт")
print(str(byte) + " байт = " + str(mb) + " Мегабайт")
print(str(byte) + " байт = " + str(gig) + " Гигабайт")
print(str(byte) + " байт = " + str(b) + " Терабайт")
else:
print(False)
</span>
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>
Begin
writeln(350/2/3*60,' секунд');
<span>end.</span>