1)Найти произведение четных чисел в промежутке от 23 до 5. 2) Найти сумму двухзначных чисел кратных 7
Ответы на вопрос
Ответил alexooooon
0
var i,s:longint;
begin s:=1;
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
2 var i, s : integer;
begin
s:=1;
for i:= 14 to 98 do
if i mod 7 = 0 then s:=s*i;
writeln(s);
readln
end.
begin s:=1;
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
2 var i, s : integer;
begin
s:=1;
for i:= 14 to 98 do
if i mod 7 = 0 then s:=s*i;
writeln(s);
readln
end.
Новые вопросы