Объяснение:
1)var
s1, s2: string;
i: byte;
begin
write('s1 = ');
readln(s1);//вводим слово S1
S2 := ''; //начальное значание слова s2 (пустая строка)
for i := 1 to Length(s1) do
if odd(i + 1) then S2 := S2 + S1[i];//если i - четно, то увеличиваем s2
writeln('S2 = ', S2)
end.
2)var
s, s1: string;
i: integer;
begin
i := 1;
s1 := '';
write('Введите предложение: ');
readln(s);
while i <= length(s) do
begin
if (s[i] = ',') and (i mod 2 <> 0) then
else s1 += s[i];
inc(i)
end;
writeln('Полученное предложение: ', s1);
writeln('Кол-во удаленных ",": ', length(s) - length(s1));
end.
Трёхмерная графика — раздел компьютерной графики, посвящённый методам создания изображений или видео путём моделирования объёмных объектов в трёхмерном пространстве.
3D-моделирование — процесс создания трёхмерной модели объекта. Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта. При этом модель может как соответствовать объектам из реального мира (автомобили, здания, ураган, астероид), так и быть полностью абстрактной (проекция четырёхмерного фрактала).
Графическое изображение трёхмерных объектов отличается тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ. Однако с созданием и внедрением 3D-дисплеев и 3D-принтеров трёхмерная графика не обязательно включает в себя проецирование на плоскость.
Извини, на второй вопрос не могу дать ответ(((
