Определите сумму элементов последовательности, которые кратны 2, но не кратны 3

@GenadiyBukin · Регистрация: 18.11.2019

С оператором цикла While
3. Определите сумму элементов последовательности, которые кратны 2, но не кратны 3. Последовательность заканчивается числом 0. Числа, которые идут за 0, считывать не нужно.

@Cyborg Drone · 19.11.2019, 15:43

Pascal

var
  a, k: integer;
 
begin
  a := 1;
  writeln('Введите последовательность чисел, оканчивающуюся нулём:');
  while a <> 0 do
    begin
      read(a);
      if (a mod 2 = 0) and (a mod 3 <> 0) then inc(k)
    end;
  readln;
  write('Количество чсел, кратных двум, но не кратных трём: ', k);
  readln
end.

@GenadiyBukin · 19.11.2019, 18:49 **[ТС]**

Cyborg Drone, большое Вам спасибо за помощь! С:

@GenadiyBukin 0 / 0 / 0 Регистрация: 18.11.2019 Сообщений: 27
		1
	Определите сумму элементов последовательности, которые кратны 2, но не кратны 3 18.11.2019, 22:39. Показов 3453. Ответов 2 Метки нет (Все метки) С оператором цикла While 3. Определите сумму элементов последовательности, которые кратны 2, но не кратны 3. Последовательность заканчивается числом 0. Числа, которые идут за 0, считывать не нужно. 0

@GenadiyBukin 0 / 0 / 0 Регистрация: 18.11.2019 Сообщений: 27
	19.11.2019, 18:49 [ТС]	3
	Cyborg Drone, большое Вам спасибо за помощь! С: 0

Опции темы

Определите сумму элементов последовательности, которые кратны 2, но не кратны 3

Решение