Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3

@Lumonn · Регистрация: 14.11.2019

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

Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3.

@SoBadDay · 14.11.2019, 20:59

За исходный принял массив размером 10 и заполнил его случайными числами в диапазоне [-10,10]

Pascal

var
  mas: array of integer;
  SIZE, f, n: integer;
 
begin
  SIZE := 10;
  setlength(mas, SIZE);
  randomize;
  writeln('Введите число n');
  readln(n);
  for var i := 0 to SIZE - 1 do
  begin
    mas[i] := random(-10, 10);
    write(mas[i]:4);
  end;
  
  for var i := 0 to n - 1 do
    if (mas[i] mod 5 = 0) or (mas[i] mod 3 = 0) then f += 1;
  writeln();
  writeln(f);
end.

@ZX Spectrum-128 · 15.11.2019, 08:31

SoBadDay, не ИЛИ, а И

@SoBadDay · 15.11.2019, 10:21

ZX Spectrum-128,

Сообщение от ZX Spectrum-128

не ИЛИ, а И

Думаю, если бы ТС-у нужно было И, он бы написал И 5 И 3, а в данном случае считаю свой ответ корректным.

@Lumonn 0 / 0 / 0 Регистрация: 14.11.2019 Сообщений: 26
		1
	Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3 14.11.2019, 20:19. Показов 3619. Ответов 3 Метки нет (Все метки) Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3. 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	15.11.2019, 08:31	3
	SoBadDay, не ИЛИ, а И 0

@SoBadDay 67 / 42 / 30 Регистрация: 26.03.2019 Сообщений: 269
	15.11.2019, 10:21	4
	ZX Spectrum-128, Сообщение от ZX Spectrum-128 не ИЛИ, а И Думаю, если бы ТС-у нужно было И, он бы написал И 5 И 3, а в данном случае считаю свой ответ корректным. 1

Опции темы

Среди N первых натуральных чисел подсчитать количество чисел, кратных 5 и 3

Решение