цикл до отыскать творенье чисел кратных 3 в спектре от 1

Цикл до отыскать творенье чисел кратных 3 в диапазоне от 1 до 30 информатика безотлагательно

Задать свой вопрос
Andrej Salkaev
Может do..while либо For.. do..
Marina Abramochkina
цикл до и все
Ангелина Нудельман
Ну тогда ожидайте ответа с "циклом do"
Лидия Кузищина
жду
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.
Павел Джавадзе
Это цикл for а не do
Женя
Автор просит do
Denis Boboedov
да всеровно уже поздно надобно было деньком
Максим Амирджанянц
Создатель произнес спасибо, означает решение подходит. Автор может не разбираться во всех заглавиях циклов. Задание можно выполнить и for и while. В обоих циклах есть do.
Олег Ангаткин
Ну раз Создатель не разбирается, то так и необходимо сказать, а не стоять на собственном и требовать то чего нет
, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт