Разбор заданий из практической работы №8
Задание №1
У многих получился ответ 27. Видимо потому, что вы забыли выполнить последний цикл. На последнем проходе цикла, переменная j в начале цикла =2 (становится равна 1 уже внутри цикла), поэтому ответ 28.
Задание №2
Так как оператор writeln находится внутри цикла, то значение переменной a будет выведено на экран во время каждого прохода цикла. Таким образом, в результате выполнения программы, будет выведено:
-10
-4
3
Цикл выполнится 3 раза.
Задание №3
Создайте программу решения следующей задачи:
- Ввести целое число и определить сумму квадратов чисел от 1 до этого числа
Пример:
Введите целое число
3
Сумма квадратов чисел равна 14
program pr3;
var n, S, a: integer;
begin
writeln(‘Введите n’);
readln (n);
S:=0;
a:=1;
while (a<=n)do
begin
S:= S+(a*a);
a:=a+1;
end;
writeln( ‘Сумма квадратов чисел равна ‘, S);
end.