1 / 1 / 0
Регистрация: 16.12.2010
Сообщений: 13
1

Выяснить, первая или последняя цифра в записи числа наибольшая

16.12.2010, 21:11. Показов 2207. Ответов 3
Метки нет (Все метки)

Пожалуйста, помогите составить код программы такой задачи:
Дано трёхзначное число. Выяснить первая или последняя цифра в
его записи наибольшая (выдать сообщение об этом). Если наибольшая первая
цифра, то проверить на нечётность среднюю цифру, о чем тоже сообщить.
Если средняя цифра окажется чётной, то разделить её пополам и вывести
полученное число.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2010, 21:11
Ответы с готовыми решениями:

Определить,какая цифра числа-первая или последняя больше.
Определить,какая цифра числа-первая или последняя больше.

Определить является ли первая и последняя цифра числа одинаковой
В диалоговом режиме задаётся длинное целое число А (long int). Определить является ли первая и...

Определить, является ли первая и последняя цифра числа одинаковой
Определить, является ли первая и последняя цифра числа одинаковой. на с++

Составить программу, определяющую совпадают ли первая и последняя цифра числа
Составить программу, определяющую совпадают ли первая и последняя цифра числа.

3
Robin Bad на форуме
237 / 237 / 194
Регистрация: 14.12.2010
Сообщений: 513
16.12.2010, 21:44 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program marshalgykov;
uses crt;
label 10;
var
a, b, c, d:integer;
begin
10:
clrscr;
writeln('Введите своё трёхзначное число');
readln(c);
If (c<100) or (c>999) then goto 10;
a:=c div 100;
b:=c mod 10;
If b>a then
begin
writeln('Последняя цифра - ',b,' больше первой ');
readln;end;
If a>b then
begin
writeln('Первая цифра - ',a,' больше последней ');
d:=(c mod 100) div 10;
writeln(d);
readln;end;
If b=a then goto 10;
readln;
end.
Вот так вроде... А формулу чётного числа я че-то забыл, там я нашел среднюю цифру, а далее попробуйте сами.
1
1 / 1 / 0
Регистрация: 16.12.2010
Сообщений: 13
16.12.2010, 21:49  [ТС] 3
Большое спасибо
Четность нечетность можно попробовать определить по остатку от деления
if c mod 2=0 then
begin
c:=c/2
1
Robin Bad на форуме
237 / 237 / 194
Регистрация: 14.12.2010
Сообщений: 513
16.12.2010, 22:03 4
Вам также спасибо, может пригодится когда
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2010, 22:03

Вывести на экран те числа у которых первая и последняя цифра одинаковая
Дан массив из Хn натуральных чисел. Вывести на экран те числа у которых первая и последняя цифра...

Определить, какая цифра в числе есть большей – первая или последняя
Наткнулся на задачу вот задача: Задано трицифровое число. Определить, какая цифра в нем есть...

Выяснить совпадают ли первая и последняя цифры натурального числа n
Выяснить совпадают ли первая и последняя цифры натурального числа n, представленного и...

Удалить из массива все числа, в которых первая и последняя цифра совпадают
Удалить из массива все числа, в которых первая и последняя цифра совпадают.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.