В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Milky0405
Milky0405
20.09.2021 06:15 •  Информатика

Запиши число, которое получится в результате выполнения программы *'


Запиши число, которое получится в результате выполнения программы *'

Показать ответ
Ответ:
viktoriadog
viktoriadog
21.09.2022 03:05

в Древнем Египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . Потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). 
В этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. Например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. На первых порах значение фонетических иероглифов было вс но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. Но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . Это важное усовершенствование было сделано в письме других народов.

0,0(0 оценок)
Ответ:
alistas
alistas
07.12.2021 06:23

USES Graph;                      {подключен модуль Graph}
VAR x,y,h:integer;

PROCEDURE GrInit;    {процедура инициализации режима графики}
VAR
    GraphDriver: Integer;          {для графического адаптера}
    GraphMode  : Integer;          {для графического режима}
    ErrorCode  : Integer;          {для кода ошибки}
BEGIN
    GraphDriver :=Detect;          {режим автоопределения}
    InitGraph(GraphDriver ,GraphMode,''); {инициализация}
    ErrorCode :=GraphResult;       {результат инициализации}
    if ErrorCode <>  grOk then     {если не успешно,то...}
    begin
        Writeln('Ошибка графики:',GraphErrorMsg(ErrorCode ));
        Writeln('Программа остановлена.');
        Halt(1)
    end {if}
END;

BEGIN
    GrInit;                              {вызов инициализации}
    x:=GetMaxX div 2;
    y:=GetMaxY div 2;
    h:= 30; {кол-во шагов до финиша}
    while x+y>0 do
    begin
      ClearDevice;
        Circle(x, y, 10);
        Delay(100);
        x:= x + GetMaxX div h;
        y:= y - GetMaxy div h;
    end;
    Readln;                         {пауза до нажатия }
    CloseGraph;                 {закрытие графического режима}
END.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота