Решить . №1. пример цикла repeat: проверка ввода. (в этом примере программа будет запрашивать ввод числа до тех пор, пока пользователь не введет "правильное" число.) №2. вычислить сумму чисел от 1 до 10. №3. вычислить сумму квадратов чисел от 1 до 8.

1) var   x, r: integer;   begin   write('введите правильное число:   ');   readln(r);   writeln('проверка ввода: ');   repeat     readln(x);   until x = r;   writeln('вы ввели правильное число'); end.  2) var   sum, i: integer; begin   i: =0;   sum: =0;   repeat     i: =i+1;     sum: =sum+i;   until i = 10;   writeln(sum); end. 3) var   sum, i: integer; begin   i: =0;   sum: =0;   repeat     i: =i+1;     sum: =sum+i*i;   until i = 8;   writeln(sum); end.

А)летать,. б)представлять куртку на человеке. (мысленно её надевать) в)распологать вещи в нужных местах (расставлять) г)наливать воду в него (но не пить) ведь пластилин отталкивает воду и не промокает. д)мы можем заранее собрать вещи в чемодан которые нам понядобятся. а)можешь лететь в нём б)гладить,стирать,покупать. всё что угодно. она же орегинал в)подметать в ней,жить.тоже почти всё что угодно. г)пить из него,греть его. д)ты в реале поедешь.и вообще всё что угодно. можешь потеряться,поесть, я точно не знаю.это лишь моё предположение. )

// pascalabc.net 3.0, сборка 1076 begin   var n: =readinteger('число элементов массива=');   var a: =arrrandom(n,-25,25);   write('исходный массив: '); a.println;   var k: =a.where(x-> sqr(x)> sqr(;   if k> 0 then writeln       ('найдено ',k,' элементов, квадрат которых больше квадрата первого')   else writeln       ('нет ни одного элемента, квадрат которого больше квадрата первого') end. тестовое решение: число элементов массива=15 исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16 найдено 7 элементов, квадрат которых больше квадрата первого