Ответ:
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.
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.