Задание 1. Дана программа нахождения суммы и произведения первых 10-и натуральных чисел
Составьте программу нахождения суммы и произведения первых 20-и четных чисел.
program pr_1;
var i, s, p: integer;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
s:=s+i;
p:=p*i
end;
writeln ('сумма чисел равна ', s);
writeln ('произведение чисел равно ', p)
end.
program pr_2;
var i, s, p: integer;
begin
s:=0;
p:=1;
i:=1;
while i<=10 do
begin
s:=s+i;
p:=p*i;
i:=i+1
end;
writeln ('сумма чисел равна ', s);
writeln ('произведение чисел равно ', p)
end.
Составьте программу нахождения суммы и произведения первых 20-и четных чисел.
program pr_1;
var i, s, p: integer;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
s:=s+i;
p:=p*i
end;
writeln ('сумма чисел равна ', s);
writeln ('произведение чисел равно ', p)
end.
program pr_2;
var i, s, p: integer;
begin
s:=0;
p:=1;
i:=1;
while i<=10 do
begin
s:=s+i;
p:=p*i;
i:=i+1
end;
writeln ('сумма чисел равна ', s);
writeln ('произведение чисел равно ', p)
end.
More Questions From This User See All
Answers & Comments
var i, s: integer;
p: real;
begin
s:=0;
p:=1;
for i:=1 to 20 do
if i mod 2 = 0 then
begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных чисел: ', s);
writeln('Произведение четных чисел: ', p);
end.
//С циклом while
var i, s: integer;
p: real;
begin
s := 0;
p := 1;
i := 1;
while i <= 20 do
begin
if i mod 2 = 0 then
begin
s:=s+i;
p:=p*i;
end;
i := i + 1;
end;
writeln('Сумма четных чисел: ', s);
writeln('Произведение четных чисел: ', p);
end.