В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
emy2512
emy2512
24.04.2023 08:47 •  Информатика

ПАСКАЛЬ.A. Странное сравнение Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или compare.in
Вывод стандартный вывод или compare.out
Петя и Арсений готовятся идти в первый класс. Они очень волнуются: говорят, что к первому классу дети уже должны уметь и читать и писать и считать... Друзья знают цифры. Они решили поупражняться в сравнении чисел. Только вот математику они совсем не проходили... Числа они сравнивают так: смотрят на первую цифру, у какого числа первая цифра больше, то число они и считают большим. Напишите программу, сравнивающую числа по правилам Пети и Арсения.

Формат ввода
На вход программе поступают два примера, каждый в своей строке. Пример представляет собой два числа x и y, записанные через пробел. (1 ≤ x, y ≤ 1020) Числа x и y начинаются с различных цифр.

Формат вывода
Ваша программа должна вывести в первой строке единицу или двойку для первого примера, а во второй строке единицу или двойку для второго примера. 1 надо выводить, если первое число в примере больше по правилам детей, и 2, если больше по их правилам второе число.

Пример
Ввод Вывод
265 71
35 498
2
2

Показать ответ
Ответ:
ученик1890
ученик1890
31.10.2021 21:28

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

0,0(0 оценок)
Ответ:

1. В.А.Котельников

Объяснение:

Влади́мир Алекса́ндрович Коте́льников (24 августа (6 сентября) 1908 года в Казани — 11 февраля 2005 года в Москве) — советский и российский учёный в области радиофизики, радиотехники, электроники, информатики, радиоастрономии и криптографии. Один из основоположников советской секретной радио- и телефонной связи. Академик АН СССР (23.10.1953), академик РАН (отделение физических наук), вице-президент АН СССР 1970—1988 гг, дважды Герой Социалистического Труда, 4-й кавалер ордена "За заслуги перед Отечеством" I степени.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота