Dima
4 год назад
найти произведение всех целых чисел от а до 50 кратных 3 но не кратных 2
ОТВЕТЫ
Reijo Aleksi
Oct 24, 2020
Program n1;
var a,i,p: integer;
begin
readln(a);
p:=1;
for i:=a to 50 do
if (i mod 3=0) and (i mod 2<>0)
then p:=p*i;
writeln(p);
end.
var a,i,p: integer;
begin
readln(a);
p:=1;
for i:=a to 50 do
if (i mod 3=0) and (i mod 2<>0)
then p:=p*i;
writeln(p);
end.
272
Смежные вопросы:
