Нахождение цифры в числе

@Neazy · Регистрация: 16.12.2017

Написать программу на нахождение цифры 6 в числе. Обязательно использовать "CASE OF"

@JuriiMW · 09.11.2018, 18:05

А зачем, простите за нескромность, в данном случае „case of“?
У меня в голове ни как не рисуется ни одного алгоритма, в котором бы при поиске определённой цифры в числе, можно было бы использовать „case“…

Pascal

begin
  var n := ReadInteger;
  
  // 1 способ
  Write('Цифра 6 встречается в позиции: ');
  n.ToString.Numerate.Where(v->v[1]='6').Select(v->v[0]).Println;
 
  // 2 способ
  var inNumber := False;
  while abs(n) > 0 do
    begin
      inNumber := inNumber or (abs(n) mod 10 = 6);
      n := n div 10;
    end;
  WriteLn('Наличие цифры 6 в числе = ', inNumber);
end.

@ZX Spectrum-128 · 09.11.2018, 19:49

Сообщение от Neazy

Обязательно использовать "CASE OF"

Pascal

var
  s: string;
  k: boolean;
  i: integer;
 
begin
  readln(s);
  k := false;
  for i := 1 to length(s) do
    if s[i] = '6' then
    begin
      k := true;
      break;
    end;
  case k of
    true: writeln('Цифра 6 есть!');
    false: writeln('Цифры 6 нет!');
  end;
end.

@Neazy 0 / 0 / 0 Регистрация: 16.12.2017 Сообщений: 37
		1
	Нахождение цифры в числе 09.11.2018, 17:43. Показов 549. Ответов 2 Метки нет (Все метки) Написать программу на нахождение цифры 6 в числе. Обязательно использовать "CASE OF" 0

Опции темы