Помогите!! Даю 100 баллов! Напишите решение задачи в паскале: найти произведение элементов кратных двум в последовательности 5,10,15,20,25,30. (до 30)
Ответы
Ответ дал:
1
Ответ:
program test;
var a,p:integer;
begin
p:=1;
a:=5;
repeat
if a mod 2 = 0 then p:=p*a;
a:=a+5
until a>30;
writeln (p)
end.
ekaterinaaralova3087:
спасибо, храни вас Бог
а можно через while ?
program test;
var a,p:integer;
begin
p:=1;
a:=5;
while a<=30 do
begin
if a mod 2 = 0 then p:=p*a;
a:=a+5
end;
writeln (p)
end.
var a,p:integer;
begin
p:=1;
a:=5;
while a<=30 do
begin
if a mod 2 = 0 then p:=p*a;
a:=a+5
end;
writeln (p)
end.
ооо, класс, спасибо!!!!
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
10 лет назад
10 лет назад