Составьте программу в паскаль. седьмому классу на практике получено сдуть 1000 одуванчиков. бригада мальчиков первый день сдуло а одуванчиков, а бригада девочек в два раза меньше. в каждый последующий день производительность мальчиков уменьшалась на 10 %, а девочек росла на 15 % по сравнению с предыдущим. через сколько дней классы выполнит норму вопросительный знак сколько сделают бригада мальчиков и девочек в отдельности?

Хорошая задачка! Хочется её решать в целых числах, но в условии этого не требуется.
var a,k:integer; m,d,sm,sd:real;
begin
write('A='); readln(a);
m:=a; d:=a/2;
sm:=m; sd:=d;
 k:=1;
while sm+sd<1000 do
 begin
 m:=m*0.9; sm:=sm+m;
 d:=d*1.15;sd:=sd+d;
 k:=k+1;
 end;
writeln('k=',k,'  sm=',sm:6:2,'  sd=',sd:6:2);
end.

Пример:
A=70
k=9  sm=428.81  sd=587.50

Объяснение:

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-принтеров трёхмерная графика не обязательно включает в себя проецирование на плоскость.

Извини, на второй вопрос не могу дать ответ(((