Циклические алгоритмы 1.Найти произведение семи целых чисел, вводимых с клавиатуры. 2. Найти сумму чисел от 30 до 20.
Циклические алгоритмы
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.
Не нашли ответ?
Похожие вопросы