Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

За 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.