Дано натуральное число Х, подсчитать количество цифр кратным трем

@Dimana 123 · Регистрация: 13.11.2019

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

Дано натуральное число Х, подсчитать количество цифр кратным трем.
С пред и пост условием и блок схему пожалуйста

@ZX Spectrum-128 · 26.11.2019, 15:50

Подсчитать количество цифр в числе кратных 3

Добавлено через 1 минуту

Pascal

uses crt;
 
var
  i, n, k: longint;
 
begin
  Write('N=');
  Readln(n);
  k := 0;
  while n > 0 do
  begin
    if (n mod 10) mod 3 = 0 then inc(k);
    n := n div 10;
  end;
  Writeln('Количество цифр, кратным 3 =', k);
end.

@Dimana 123 0 / 0 / 0 Регистрация: 13.11.2019 Сообщений: 11
		1
	Дано натуральное число Х, подсчитать количество цифр кратным трем 26.11.2019, 15:29. Показов 961. Ответов 1 Метки free pascal, pascal abc, pascal abc net (Все метки) Дано натуральное число Х, подсчитать количество цифр кратным трем. С пред и пост условием и блок схему пожалуйста 0

	26.11.2019, 15:50