Циклические алгоритмы 1.Найти произведение семи целых чисел, вводимых с клавиатуры. 2....

Question

Циклические алгоритмы
1.Найти произведение семи целых чисел, вводимых с клавиатуры.
2. Найти сумму чисел от 30 до 20.

Answer 1

За 5 баллов... вот решение 2-ой задачи

program n2;
var
i, sum: integer;
begin
sum:=0;
for i := 20 to 30 do begin
sum:=sum+i;
end;
writeln('Сумма чисел от 20 до 30 = ', sum);
end.