Определить, в каком из двух десятичных чисел больше цифр

@kRayzer128 · Регистрация: 21.04.2019

Просьба еревести из Turbo Pascal в С

Pascal

Program p1;
function NumberOfDigits(number:integer):integer;
var i:integer;
begin
  i:=0;
  while number > 9 do begin
    i:= i + 1;
    number:= number div 10;
  end;
  i:= i + 1;
  NumberOfDigits:=i;
end;
 
var
a,b:integer;
begin
  readln(a,b);
  if NumberOfDigits(a) > NumberOfDigits(b) then
    writeln('a > b')
  else
  if NumberOfDigits(a) < NumberOfDigits(b) then
    writeln('a < b')
  else
    writeln('a = b');
end.

@zss · 21.04.2019, 17:53

Миллионный раз пишу: зачем переводить, если можно посмотреть темы внизу этой страницы и выбрать подходящий вариант.

Например, чем Вас не устраивает вот эта:
Определить, в каком из двух целых чисел больше цифр

@zss Модератор 12623 / 10122 / 6096 Регистрация: 18.12.2011 Сообщений: 27,154
	21.04.2019, 17:53	2
	Миллионный раз пишу: зачем переводить, если можно посмотреть темы внизу этой страницы и выбрать подходящий вариант. Например, чем Вас не устраивает вот эта: Определить, в каком из двух целых чисел больше цифр 0

Опции темы