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