М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alena250880
alena250880
07.01.2023 19:16 •  Информатика

Перевести число 165 из десятиричной системы в восьмиричную

👇
Ответ:
так точно не знаю 165=1*8(в квадрате)+6*8+5*8(в нулевой степени)=64+48+0=112
4,8(67 оценок)
Открыть все ответы
Ответ:
kashlakova20031
kashlakova20031
07.01.2023

ответ:

uses graphabc;

var xx,yy,u: integer;

procedure growl(x,y,r: integer);

var i: byte;

begin

for i: =1 to r do

    begin

    circle(x,y,i);

    sleep(5);

    end;

end;

procedure growr(x,y: integer);

var i: byte;

begin

for i: =1 to 20 do

    begin

    ellipse(x-5,y-(i),x-(i*3),y+(i));

    ellipse(x+5,y-(i),x+(i*3),y+(i));

    ellipse(x-(i),y-5,x+(i),y-(i*3));

    ellipse(x-(i),y+5,x+(i),y+(i*3));

    sleep(3);

    end;

end;

procedure fall;

var r,prer,i: byte;

    x,y: integer;

begin

for i: =1 to 10 do

    begin

x: =random(160)-80+windowwidth div 2;

prer: =0;

r: =random(10)+10;

for y: =80+windowheight div 2 to windowheight+30 do

    begin

    setpencolor(clwhite);

    circle(x,y-1,prer);

    setpencolor(clblack);

    circle(x,y,r);

    prer: =r;

    sleep(3);

    end;

    end;

end;

procedure growd (x,y: integer);

var i: byte;

begin

for i: =20 downto 5 do

    begin

    clearwindow;

    setbrushcolor(clgreen);

    ellipse(x-5,y-(20),x-(60),y+(20));

    ellipse(x+5,y-(20),x+(60),y+(20));

    ellipse(x-(20),y-5,x+(20),y-(60));

    ellipse(x-(20),y+5,x+(20),y+(60));

    setbrushcolor(rgb(255,255-((20-i)*10),255-((20-i)*;

    circle(x-i,y-i,i);

    circle(x+i,y-i,i);

    circle(x+i,y+i,i);

    circle(x-i,y+i,i);

    sleep(5);

    end;

end;

var j: integer;

begin

repeat

setbrushcolor(clgreen);

growr(windowwidth div 2,windowheight div 2);

setbrushcolor(clwhite);

for j: =1 to 360 do

    if j mod 10=0 then

    begin

        xx: =round(windowwidth div 2+20*cos(pi*(u+(j*10))/180));

        yy: =round(windowheight div 2+20*sin(pi*(u+(j*10))/180));

    growl(xx,-j) div 10));

    end;

sleep(100);

fall;

growd (windowwidth div 2,windowheight div 2);

sleep(100);

until false;

end.

объяснение:

4,8(74 оценок)
Ответ:
MrTroLoLo10
MrTroLoLo10
07.01.2023
   Всем привет!   Знаете ли вы, что в некоторых учебных заведениях нашей страны начинают изучать информатику аж со второго класса? С одной стороны, это вроде бы хорошо - повышается компьютерная грамотность детей. А с другой - зачем нужна информатика в начальной школе?   Вы же понимаете, что приобщать ребёнка к компьютеру в таком раннем возрасте - значит, слышать от него каждый день "Хочу свой компьютер!" А если исполнить желание своего чада, то придётся бороться с тем, что чадо забудет обо всём на свете, часами просиживая перед монитором.   Поэтому, на мой взгляд, целесообразно этот предмет включать в школьную программу только с пятого класса. Но и тут возникает немало вопросов, исходя из которых я поставлю под сомнение целесообразность изучения информатики в школе. Дальше будет интересно, поэтому никуда не уходите.   Что изучают на уроках информатики?   Когда я вспоминаю уроки информатики в своей школе (мы её начали изучать лишь с 9 класса), мне представляются страшные на вид (но, наверное, шибко умные для той поры) компьютеры с чёрно-белым маленьким монитором и грязно-жёлтыми системными блоками с отверстием для дискет. Я не знаю, на что они были но мы на них печатали текст и играли в какую-то примитивную игрушку (наподобие тетриса).   В дальнейшем у нас появились новые компьютеры с цветными мониторами. Это был настоящий прогресс, и в то время я впервые увидел, как пользоваться мышкой...   Что же изучали мы на уроках информатики?   Язык программирования Бэйсик, навыки работы в Word, игра "Как достать соседа" - вот всё, что я помню из 3-летнего курса информатики в школе. Из этого набора мне пригодилось только второе, а всё остальное было забыто за ненадобностью.   Изменилась ли ситуация сейчас? Для ответа на этот вопрос нужно заглянуть в современные учебники по информатике. Для примера я возьму серию учебников для 5-9 классов (2013 год, автор Босова Л.Л.) и учебники для 10-11 классов (2013 год, автор Семакин И.Г.).
4,4(54 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ