Помогите решить задачи ПЖЛ. СРОЧНО!!! Задача №1. Пример цикла Repeat: проверка ввода. (В этом примере программа будет запрашивать ввод числа до тех пор, пока пользователь не введет "правильное" число.) Задача №2. Вычислить сумм...
Помогите решить задачи ПЖЛ. СРОЧНО!!!
Задача №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.
Не нашли ответ?
Похожие вопросы