Номер 12, страница 194 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.5. Программирование циклических алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 12, страница 194.

Условие.

12. Напишите программу, которая вычисляет сумму:

а) первых n натуральных чисел;
б) квадратов первых n натуральных чисел;
в) всех чётных чисел на отрезке от 1 до n;
г) всех двузначных чисел.

Решение.

а)
var
i, n, s: integer;
begin
writeln ('Введите число');
readln (n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln ('Сумма=', s);
end.
б)
var
i, n, s: integer;
begin
writeln ('Введите число');
readln (n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln ('Сумма=', s);
end.
в)
var
i, n, s: integer;
begin
writeln ('Введите число');
readln (n);
s:=0;
for i:=1 to n do
if i mod 2 = 0 then s:=s+i;
writeln ('Сумма=', s);
end.
г)
var
i, s: integer;
begin
s:=0;
for i:=10 to 99 do
s:=s+i;
writeln ('Сумма=', s);
end.