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

Связь информационых технологий с нтп

Показать ответ
Ответ:
VeronicaOgne
VeronicaOgne
07.09.2022 22:42
Var
   S:string;
   i:integer;
begin
  ReadLn(S);
  i:=1;
  While i<=Length(S) do
     Begin
     if ('0'<=S[i])and(S[i]<='9') then
        Case S[i] of
        '0':
           Begin
             Delete(S,i,1);
             Insert('ноль',S,i);
           end;
        '1':
           Begin
             Delete(S,i,1);
             Insert('один',S,i);
             i:=i+3
           end;
        '2':
           Begin
             Delete(S,i,1);
             Insert('два',S,i);
             i:=i+2
           end;
        '3':
           Begin
             Delete(S,i,1);
             Insert('три',S,i);
             i:=i+2
           end;
        '4':
           Begin
             Delete(S,i,1);
             Insert('четыре',S,i);
             i:=i+5
           end;
        '5':
           Begin
             Delete(S,i,1);
             Insert('пять',S,i);
             i:=i+3
           end;
        '6':
           Begin
             Delete(S,i,1);
             Insert('шесть',S,i);
             i:=i+4
           end;
        '7':
           Begin
             Delete(S,i,1);
             Insert('семь',S,i);
             i:=i+3
           end;
        '8':
           Begin
             Delete(S,i,1);
             Insert('восемь',S,i);
             i:=i+5
           end;
        '9':
           Begin
             Delete(S,i,1);
             Insert('девять',S,i);
             i:=i+5
           end;
        end;
        i:=i+1
        End;
  WriteLn(S);
  ReadLn;
end.

Для того, чтобы данная программа заработала, нажмите: Файл → создать → простейшая программа.

Если русские буквы отображаются правильно, нажмите правой кнопкой мыши по коду, выберите: параметры файла → кодировка → Ansi (cp1251).
0,0(0 оценок)
Ответ:
Sasho2325
Sasho2325
04.10.2020 15:36

ответ: 1 знаю 2 тоже а 3 хззз :(

ответ:1.SketchUp состоит из трех основных частей это:

Основные инструменты

Инструменты рисования

Инструменты модификаций

2.Прямо угольник-инструмент рисования прямоугольников по двум точкам.

Линия-инструмент для рисования начальной схемы объекта.

Окружность-инструмент для рисования правильных окружностей.

Дуга-инструмент рисования дуг по трем параметрам.

Многоугольник- инструмент для встрайвания многоугольников в объекте.

Ручная работа-инструмент рисования объекта от руки.

3. Хз

Объяснение:

Удачи вам :)


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