Произвести подсчеты различных цифр числа

@YaDiK · Регистрация: 06.12.2015

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

Дано натуральное число. Определить:
а) количество цифр «3» в нем;
б) сколько раз в нем встречается цифра, равная последней;
в) количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать;
г) сумму его цифр, больших пяти;
д) произведение его цифр, больших семи;
е) сколько раз в нем встречаются цифры "0" и "5".
В Паскале !

@bormant · 08.12.2015, 13:27

Pascal

const W=40;
var
  n: Longint;
  c: array [0..9] of Integer;
  i, d: Integer;
begin
  Write('N: '); ReadLn(n);
  repeat d:=n mod 10; Inc(c[d]); n:=n div 10; until n=0;
  WriteLn('Количество цифр 3: ':W,c[3]);
  WriteLn('Количество цифр, равных последней: ':W,c[d]);
  d:=0; i:=2; while i<10 do begin Inc(d,c[i]); Inc(i,2); end;
  WriteLn('Количество четных цифр: ':W,d);
  d:=0; for i:=6 to 9 do Inc(d,c[i]*i);
  WriteLn('Сумма цифр, >5: ':W,d);
  d:=1; for i:=8 to 9 do if c[i]>0 then d:=d*i;
  Write('Произведение цифр, >7: ':W);
  if d=1 then WriteLn('нет') else WriteLn(d);
  WriteLn('Количество цифр 0 и 5: ':W, c[0]+c[5]);
end.

@YaDiK 0 / 0 / 0 Регистрация: 06.12.2015 Сообщений: 8
		1
	Произвести подсчеты различных цифр числа 08.12.2015, 06:50. Показов 1267. Ответов 1 Метки нет (Все метки) Дано натуральное число. Определить: а) количество цифр «3» в нем; б) сколько раз в нем встречается цифра, равная последней; в) количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать; г) сумму его цифр, больших пяти; д) произведение его цифр, больших семи; е) сколько раз в нем встречаются цифры "0" и "5". В Паскале ! 0

	08.12.2015, 13:27

Опции темы

Произвести подсчеты различных цифр числа

Решение