Пример кода на Pascal для нахождения произведения чисел больше 7 с использованием цикла while:
program MultiplyNumbers; var num, product: integer; begin product := 1; writeln('Enter a number (0 to exit): '); readln(num); while num <> 0 do begin if num > 7 then product := product * num; writeln('Enter a number (0 to exit): '); readln(num); end; writeln('The product of numbers greater than 7 is: ', product); end.
Эта программа запрашивает у пользователя числа и находит их произведение, ограничиваясь только числами больше 7. При вводе 0 программа завершает выполнение и выводит итоговое произведение.
Пример кода на Pascal для нахождения произведения чисел больше 7 с использованием цикла while:
program MultiplyNumbers;var
num, product: integer;
begin
product := 1;
writeln('Enter a number (0 to exit): ');
readln(num);
while num <> 0 do
begin
if num > 7 then
product := product * num;
writeln('Enter a number (0 to exit): ');
readln(num);
end;
writeln('The product of numbers greater than 7 is: ', product);
end.
Эта программа запрашивает у пользователя числа и находит их произведение, ограничиваясь только числами больше 7. При вводе 0 программа завершает выполнение и выводит итоговое произведение.