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).
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).
ответ: 1 знаю 2 тоже а 3 хззз :(
ответ:1.SketchUp состоит из трех основных частей это:
Основные инструменты
Инструменты рисования
Инструменты модификаций
2.Прямо угольник-инструмент рисования прямоугольников по двум точкам.
Линия-инструмент для рисования начальной схемы объекта.
Окружность-инструмент для рисования правильных окружностей.
Дуга-инструмент рисования дуг по трем параметрам.
Многоугольник- инструмент для встрайвания многоугольников в объекте.
Ручная работа-инструмент рисования объекта от руки.
3. Хз
Объяснение:
Удачи вам :)