Question

цикл до найти произведение чисел кратных 3 в диапазоне от 1 до 30 информатика срочно

Answer 1

program dfgd;

var
  n: real;
  i: integer;

begin
  n := 1;
  for i := 1 to 30 do
    if (i mod 3 = 0)
      then n := n * i;
  writeln('Произведение чисел, кратных 3 = ', n);
end.

Answer 2

Это цикл for а не do

Answer 3

Автор требует do

Answer 4

да всеровно уже поздно надо было днем

Answer 5

Автор сказал спасибо, значит решение подходит. Автор может не разбираться во всех названиях циклов. Задание можно выполнить и for и while. В обоих циклах есть do.

Answer 6

Ну раз Автор не разбирается, то так и нужно сказать, а не стоять на своем и требовать то чего нет