Помогите!! Даю 100 баллов! Напишите решение задачи в паскале: найти произведение элементов кратных двум в последовательности 5,10,15,20,25,30. (до 30)
Ответы на вопрос
Ответил valgrisa
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 года назад
Математика,
7 лет назад
Алгебра,
7 лет назад
Биология,
8 лет назад
Физика,
8 лет назад