Найти произведение четных чисел, кратных трем, из промежутка от (a) до (b)

@Gangster_Gun · Регистрация: 15.10.2019

Найти произведение чисел из промежутка от (a) до (b) для которых выполняется условие : число является чётным и делится на 3
Решит задачу циклами : 1) Цикл-ПОКА, 2) Цикл-ДО, 3) Цикл-с параметром

@ValentinNemo · 30.10.2019, 09:15

Pascal

program Project1;
var
  a,b: integer; // Переменные для хранения значений левой и правой границы.
  i: integer;   // Переменная для хранения значения аргумента.
  mult: integer;   // Переменная для хранения значения произведения.
  flag: boolean;   // Логическая переменная для организации вывода ответа.
begin
  write('Введите значение левой границы: ');
  Readln(a);
  write('Введите значение правой границы: ');
  Readln(b);
  i:= a;        // Установка начального значения аргумента.
  mult:= 1;
  flag:= false;
  while i <= b do     // Цикл с условием.
   begin
     if (i mod 2 = 0) and (i mod 3 = 0) then  // Условие поиска чисел.
       begin
         flag:= true;
         mult:= mult*i;   //  Вычисление произведения.
       end;
     inc(i);              // Приращение аргумента.
   end;
  if flag then
    writeln('Результат вычислений: ', mult)
  else
    writeln('Четных чисел, делящихся на 3 не найдено.');
  Readln;
end.

Pascal

program Project1;
var
  a,b: integer; // Переменные для хранения значений левой и правой границы.
  i: integer;   // Переменная для хранения значения аргумента.
  mult: integer;   // Переменная для хранения значения произведения.
  flag: boolean;   // Логическая переменная для организации вывода ответа.
begin
  write('Введите значение левой границы: ');
  Readln(a);
  write('Введите значение правой границы: ');
  Readln(b);
  i:= a;        // Установка начального значения аргумента.
  mult:= 1;
  flag:= false;
  repeat     // Цикл с условием.
     if (i mod 2 = 0) and (i mod 3 = 0) then  // Условие поиска чисел.
       begin
         flag:= true;
         mult:= mult*i;   //  Вычисление произведения.
       end;
     inc(i);              // Приращение аргумента.
  until i > b;
  if flag then
    writeln('Результат вычислений: ', mult)
  else
    writeln('Четных чисел, делящихся на 3 не найдено.');
  Readln;
end.

Pascal

                              
program Project1;
var
  a,b: integer; // Переменные для хранения значений левой и правой границы.
  i: integer;   // Переменная для хранения значения аргумента.
  mult: integer;   // Переменная для хранения значения произведения.
  flag: boolean;   // Логическая переменная для организации вывода ответа.
begin
  write('Введите значение левой границы: ');
  Readln(a);
  write('Введите значение правой границы: ');
  Readln(b);
  mult:= 1;
  flag:= false;
  for i:= a to b do   // Цикл с параметрами.
    begin
      if (i mod 2 = 0) and (i mod 3 = 0) then  // Условие поиска чисел.
       begin
         flag:= true;
         mult:= mult*i;   //  Вычисление произведения.
       end;
    end;
  if flag then
    writeln('Результат вычислений: ', mult)
  else
    writeln('Четных чисел, делящихся на 3 не найдено.');
  Readln;
end.

@volvo · 30.10.2019, 11:51

Кратность числа одновременно двум и трем - это кратность 6. Зачем лишний код писать?

@Gangster_Gun 0 / 0 / 0 Регистрация: 15.10.2019 Сообщений: 25
		1
	Найти произведение четных чисел, кратных трем, из промежутка от (a) до (b) 30.10.2019, 08:42. Показов 2737. Ответов 2 Метки цикла (Все метки) Найти произведение чисел из промежутка от (a) до (b) для которых выполняется условие : число является чётным и делится на 3 Решит задачу циклами : 1) Цикл-ПОКА, 2) Цикл-ДО, 3) Цикл-с параметром 0

@volvo Супер-модератор 32482 / 20968 / 8114 Регистрация: 22.10.2011 Сообщений: 36,235 Записей в блоге: 7
	30.10.2019, 11:51	3
	Кратность числа одновременно двум и трем - это кратность 6. Зачем лишний код писать? 0

Опции темы