Помогите!! Даю 100 баллов! Напишите решение задачи в паскале: найти произведение элементов кратных двум в последовательности 5,10,15,20,25,30. (до 30)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.
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.