С поддержкою цикла RepeatUntil составить программу для нахождения произведения 5 первых

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.

Должно работать.

Шепников Артём 2019-08-19 23:58:38

Ща посмотрю

Гржимальский Никита 2019-08-20 00:00:38

Все отлично работает

Кристина 2019-08-20 00:07:19

сам проверил

Сергей 2019-08-20 00:16:20

я что так тупая, почему у меня не чего не выходит

Milena Svatikova 2019-08-20 00:19:46

Программа выводит ответ, когда ты введешь 5 нечетных чисел, а на четные она и не обязана реагировать.

Есения Жданухина 2019-08-20 00:26:00

Я ввел 1 2 3 1 3 2 3 и получил ответ 27

Vitalja Moshura 2019-08-20 00:32:17

1*3*1*3*3=27

Kirjuha 2019-08-20 00:41:30

всё СПАСИБО Громадное!!!!!

Карина Платцына 2019-08-20 00:51:21

я понила

Василий Пузыревский 2019-08-20 00:54:26

Не за что.

О проекте

С поддержкою цикла RepeatUntil составить программу для нахождения произведения 5 первых

Добро пожаловать!