Var
ch, mo, di: longint;
otvet, s: string;
begin
readln(ch);
otvet := '';
while ch <> 0 do
begin
di := ch div 8;
mo := ch mod 8;
str(mo, s);
otvet := s + otvet;
ch := di;
end;
writeln(otvet);
end.
Если нужно изменить\дополнить\пояснить пиши.
var a:integer;
begin
readln(a);
writeln(a div 60,'мин ',a mod 60,'сек')
end.
Бит,байт,килобайт,мегабайт,гигабайт,терабайт,петабайт и.т.д
В 1 байте-8 бит,в 1 кб-1024 байт,в 1 мб-1024 кб,в 1гб-1024мб ,в одном терабайте-1024 гб, в 1 петабайте-1024 терабайт и.т.д
1) Круговая
2) Диаграмма
3) Наглядно
4) Таблица
5) По горизонтали - Схема
5) По вертикали - Столбчатая
6) Иллюстрация
7) Текст
по моему не одного вопроса не пропустил но если что то осталось пишите коммент