2. Решить задачи (программа): а) Найти сумму чисел в диапазоне от 10 до 30 б) Найти...

Question

2. Решить задачи (программа):
а) Найти сумму чисел в диапазоне от 10 до 30
б) Найти произведение чисел в диапазоне от 10 до 15
в) Найти сумму ЧЕТНЫХ чисел в диапазоне от 10 до 30

Comments

Язык?

---

Всех чисел диапазона? или заданных чисел входящих в диапазон?

---

паскаль

---

всех чисел

Answer 1

В)var i,p:integer;
begin
i:=10;
p:=0;
while i<=30 do<br> begin 
 p:=p+i; 
 i:=i+2;
 end;
write('P= ',p);
   readln;
end.
б) var i,p:integer;
begin
i:=15;
p:=1;
while i<=30 do <br>begin 
 p:=p*i; 
 i:=i+1; 
end;
write('P= ',p);
   readln;
end.
а)  var i,p:integer;
begin
i:=10;
p:=0;
while i<=30 do <br>begin 
 p:=p+i; 
 i:=i+1; 
end;
write('P= ',p);
   readln;
end.