Дан текст: мама мыла rrrttt раму. курсор находится в начале строки. чтобы удалить лишние латинские буквы, можно: 1)10 раз нажать на стрелку вправо и 7 раз нажать на клавишу backspace 2)10 раз нажать на стрелку вправо и 7 раз нажать на клавишу delete 3)9 раз нажать на стрелку вправо и 8 раз нажать на клавишу backspace 4)9 раз нажать на стрелку вправо и 6 раз нажать на клавишу delete

Здесь подходит второе решение.ответ №2

Var n,i,k,z: integer;           s: real; begin s: =0; k: =0;   repeat      write('введите кол-во дней : ');         readln(n);   until (n> =1) and (n< =31); {проверка на верное количество дней} for i: =1 to n do  begin      write ('введите значение температуры в ',i,' день : ');       readln(z);       s: =s+z;       if z> 0 then k: =k+1;   end; s: =s/n; writeln('средняя температура = ',s); if k> =5 then writeln('yes')  else writel n('no'); end.

Думаю, что такая операция возможна. например: //pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) begin   //цикл с параметром   for var i : = 1 to 3 do   begin       var a : = readinteger('введите число а');       println(a);   end;   // цикл с предусловием   var i : = 1;   while i < 3 do   begin       var a : = readinteger('введите число а');       println(a);       i : = i + 1;   end;   // цикл с потусловием   i : = 1;   repeat       var a : = readinteger('введите число а');       println(a);       i : = i + 1;   until i > 3;   end.