Дано целое число a>9. Больше ли цифра десятков цифры единиц?

@heyHOLLA · Регистрация: 28.10.2013

помогите с задачей,пожалуйста, Дано целое число a>9. Больше ли цифра десятков цифры единиц?

@ermolay · 19.01.2014, 18:48

например так:

Pascal

var
  a: integer;
begin
  repeat
    write('Введите число A (A>9): ');
    readln(a);
  until a>9;
  if a div 10 mod 10 > a mod 10
    then writeln('Цифра десятков больше цифры единиц') else
      writeln('Цифра десятков не больше цифры единиц');
  readln;
end.

или вывод булева значения:

Pascal

var
  a: integer;
begin
  repeat
    write('Ââåäèòå ÷èñëî A (A>9): ');
    readln(a);
  until a>9;
  writeln(a div 10 mod 10 > a mod 10);
  readln;
end.

@heyHOLLA 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 49
		1
	Дано целое число a>9. Больше ли цифра десятков цифры единиц? 19.01.2014, 18:24. Показов 3619. Ответов 1 Метки нет (Все метки) помогите с задачей,пожалуйста, Дано целое число a>9. Больше ли цифра десятков цифры единиц? 0

Опции темы

Дано целое число a>9. Больше ли цифра десятков цифры единиц?

Решение