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

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

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

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

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

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

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.