Найти количество нечетных чисел кратных 3 от 0 до Z

@Setnad17 · Регистрация: 10.09.2014

Author24 — интернет-сервис помощи студентам

Задача 1. Дано целое, случайное число Z , в диапазоне от - 20 до - 50. Найти количество нечетных чисел кратных 3 в диапазоне от 0 до Z
Помогите пожалуйста, вроде бы и легкие, да не понимаю какие операторы подставлять...

@ildwine · 10.09.2014, 18:06

Pascal

var
  z, i, k : integer;
begin
  randomize;
  k := 0; {счетчик количества}
  z := -(random(31) + 20); {генерируем числа в диапазоне -20 ... -50}
  writeln('случайное число z = ', z);
  for i := 0 downto z do
    if (i mod 2 <> 0) and (i mod 3 = 0) then inc(k);
    {если остаток от деления на 2 не равен нулю (нечетное) и 
    остаток от деления на 3 равен нулю (кратно трем) то плюсуем количество}
  writeln('количество нечетных кратных трем: ', k);
  readln
end.

@Setnad17 · 10.09.2014, 18:31 **[ТС]**

Спасибище!

@Cyborg Drone · 11.09.2014, 00:38

Можно проще.

Pascal

var z : integer;
begin
  randomize;
  z := -(random(31) + 20); {генерируем числа в диапазоне -20 ... -50}
  writeln('случайное число z = ', z);
  writeln('количество нечетных кратных трем: ', abs(z - 3) div 6);
  readln
end.

Найти количество нечетных чисел кратных 3 от 0 до Z

Решение

Решение

@Setnad17 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 12
		1
	Найти количество нечетных чисел кратных 3 от 0 до Z 10.09.2014, 17:51. Показов 4395. Ответов 3 Метки нет (Все метки) Задача 1. Дано целое, случайное число Z , в диапазоне от - 20 до - 50. Найти количество нечетных чисел кратных 3 в диапазоне от 0 до Z Помогите пожалуйста, вроде бы и легкие, да не понимаю какие операторы подставлять... 0

@Setnad17 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 12
	10.09.2014, 18:31 [ТС]	3
	Спасибище! 0

	11.09.2014, 00:38