Вопрос по информатике:
Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны").
- 16.03.2018 00:04
- Информатика
- remove_red_eye 13254
- thumb_up 48
Ответы и объяснения 1
Program Task;
Var a, b, c: Integer;
Begin
Write('a = ');
ReadLn(a);
If (a 99) Then
WriteLn('Число не двузначное')
Else
Begin
b := a Div 10;
c := a - (b * 10);
If b > c Then
WriteLn('Первая цифра')
Else if b < c Then
WriteLn('Вторая цифра')
Else
WriteLn('Равны')
End;
ReadLn;
End.
- 16.03.2018 09:25
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.