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

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

22.05.2012, 13:20. Показов 9458. Ответов 1
Метки нет (Все метки)

Добрый день,дали задание не могу справиться,нужна ваша помощь.
Нужно на языке Паскаь решить следующие задачи:
1)дано двузначное число,написать программу для определения больше ли цифра десятков цифры единиц
2) найти сумму всех двузначных чисел, которые кратны 6
Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2012, 13:20
Ответы с готовыми решениями:

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

Дано двуначное число. Определить, больше ли цифра десятков цифры единиц
Добрый день,дали задание не могу справиться,нужна ваша помощь. Нужно на языке Паскаь решить...

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

Найти и вывести сумму всех хороших (цифра десятков больше, чем цифра единиц) элементов массива
Задание 25 № 5289. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые...

1
тыдыщ
206 / 189 / 166
Регистрация: 19.01.2011
Сообщений: 483
22.05.2012, 13:48 2
Лучший ответ Сообщение было отмечено dania как решение

Решение

Цитата Сообщение от dania Посмотреть сообщение
1)дано двузначное число,написать программу для определения больше ли цифра десятков цифры единиц
Pascal
1
2
3
4
5
6
7
8
9
var
  n, sum: integer;
 
begin
  read(n);
  if n mod 10 > n div 10 then writeln('Первый разряд больше') else
  if n mod 10 < n div 10 then writeln('Второй разряд больше') else
    writeln('Первый и второй разряды равны');
end.
Добавлено через 1 минуту
Цитата Сообщение от dania Посмотреть сообщение
2) найти сумму всех двузначных чисел, которые кратны 6
Pascal
1
2
3
4
5
6
7
8
var
  i, n, sum: integer;
 
begin
  for i := 10 to 99 do
    if i mod 6 = 0 then inc(sum, i);
  writeln(sum);
end.
Добавлено через 26 секунд
Цитата Сообщение от klast Посмотреть сообщение
inc(sum, i);
это тоже самое что и sum:=sum+i;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2012, 13:48
Помогаю со студенческими работами здесь

Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц
1.Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц.

Дано трехзначное число определить количество сотен, десятков и единиц
Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

дано двузначное число, определить равна ли его вторая цифра 5
дано двузначное число, определить равно его вторая цифра 5 yes-если равна no-если нет

Дано двузначное число. Выяснить: Какая из его цифр больше? Одинаковы ли цифры?
Дано двузначное число. Выяснить: Какая из его цифр больше? Одинаковы ли цифры? Прошу написать на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru