Петрович
7 год назад
С помощью цикла Repeat…Until составить программу для нахождения произведения пяти первых нечетных чисел.
программа паскаль абц
ОТВЕТЫ
Аарон
Jul 8, 2019
Program v;
Var a,b,n:integer;
BEGIN
b:=1;
repeat
readln(a);
if (a mod 2 gt; 0) or (a mod 2 lt; 0) then begin
b:=b*a;
n:=n+1;
end;
until n=5;
writeln (b);
END.
Должно работать.
Var a,b,n:integer;
BEGIN
b:=1;
repeat
readln(a);
if (a mod 2 gt; 0) or (a mod 2 lt; 0) then begin
b:=b*a;
n:=n+1;
end;
until n=5;
writeln (b);
END.
Должно работать.
23
Смежные вопросы:
