Составить и отладить программу вычисления произведения всех положительных чисел

@TheDesolo · Регистрация: 10.04.2020

Составить и отладить программу вычисления произведения всех положительных чисел кратных 3 и не превышающих 30.

@ZX Spectrum-128 · 10.04.2020, 13:28

Pascal

var
  i: integer;
  p: real;
 
begin
  p := 1;
  for i := 1 to 29 do
    if i mod 3 = 0 then
      p := p * i;
  writeln(p);
end.

@TheDesolo 0 / 0 / 0 Регистрация: 10.04.2020 Сообщений: 8
		1
	Составить и отладить программу вычисления произведения всех положительных чисел 10.04.2020, 13:24. Показов 552. Ответов 1 Метки c++ builder 6 (Все метки) Составить и отладить программу вычисления произведения всех положительных чисел кратных 3 и не превышающих 30. 0

	10.04.2020, 13:28