Sairiel
4 год назад
Задание 1. Дана программа нахождения суммы и произведения первых 10-и натуральных чисел Составьте программу нахождения суммы и произведения первых 20-и четных чисел.program pr_1;var i, s, p: integer;begins:=0;p:=1;for i:=1 to 10 dobegins:=s+i;p:=p*iend;writeln ('сумма чисел равна ', s);writeln ('произведение чисел равно ', p)end.program pr_2;var i, s, p: integer;begins:=0;p:=1;i:=1;while i<=10 dobegins:=s+i;p:=p*i;i:=i+1end;writeln ('сумма чисел равна ', s);writeln ('произведение чисел равно ', p)end.
ОТВЕТЫ
Arsenij
Oct 24, 2020
//Pascal с циклом for
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.
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.
- Спасибо!
132
Смежные вопросы:
