2. Решить задачи (программа): а) Найти сумму чисел в диапазоне от 10 до 30 б) Найти произведение чисел в диапазоне от 10 до 15 в) Найти сумму ЧЕТНЫХ чисел в диапазоне от 10 до 30
Answers & Comments
AFkristina
В)var i,p:integer; begin i:=10; p:=0; while i<=30 do 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 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 begin p:=p+i; i:=i+1; end; write('P= ',p); readln; end.
Answers & Comments
begin
i:=10;
p:=0;
while i<=30 do
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
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
begin
p:=p+i;
i:=i+1;
end;
write('P= ',p);
readln;
end.