Напиши программу, составляющую автоматическое письмо клиенту Б Н І а Д На сколько вы оцениваете отдых от 1 до 5: >>> 3 Что вам не понравилось? >>> Выпечка в столовой 3-Выпечка в столовой - сбор негативных отзывов важная задача. По ним можно понять, что можно улучшить. Напиши программу, которая: - запрашивает у клиента оценку отдыха; - спрашивает, что ему не понравилось; - объединяет оценку и пожелание в одну строку и печатает на экран. 120 Побету программы оформи как на картинке​

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.