Формулировка задачи:
Разбор:
Чтобы найти число десятков числа n надо найти остаток от деления n на 100, а потом этоже чило делить нацело на 10.
Условие:
Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи).
Код к задаче: «Число десятков»
textual
var a,n:integer; begin readln(n); a:=(n mod 100) div 10; writeln(a); end.
Полезно ли:
13 голосов , оценка 3.538 из 5
|
3 / 3 / 0 Регистрация: 04.12.2011 Сообщений: 119 |
|
|
1 |
|
Число десятков16.12.2011, 19:30. Показов 19590. Ответов 3
Разбор:
0 |
|
Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782 |
16.12.2011, 19:30 |
|
3 |
|
Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182 |
||||
|
16.12.2011, 19:32 |
2 |
|||
0 |
|
wazler 3 / 3 / 0 Регистрация: 04.12.2011 Сообщений: 119 |
||||
|
16.12.2011, 19:40 [ТС] |
3 |
|||
в чем ошибка?
0 |
|
Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182 |
||||
|
16.12.2011, 19:46 |
4 |
|||
0 |
|
IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604 |
16.12.2011, 19:46 |
|
Помогаю со студенческими работами здесь
Дано натуральное число n(>99). Найти число десятков в нем дано натуральное число n(>99). Найти Дано 4-х значное число. Вывести число, полученное перестановкой цифр тысяч и десятков. Например: 4321—>2341
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: 4 |
Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков
9
Помогите пожалуйста Напишите программу на языке Паскаль для решения задачи
Дано четырёхзначное число Х. Найти:
a. число десятков в нем;
b. число единиц в нем;
c. число сотен в нем;
d. число тысяч в нем;
e. сумму его цифр;
f. произведение его цифр.
1 ответ:
0
0
Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln(‘Тысяч = ‘, betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln(‘Сотен = ‘, betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln(‘Десятков = ‘, betw);
betw := input;
betw := betw mod 10;
writeln(‘Единиц = ‘, betw); end.
Читайте также
11₄ = 4×1+1 = 5₁₀. А дальше прибавляем по четверичной единичке в третьем разряде числа, т.е. по 100₄, чтобы не затронуть два младших разряда. где 11. Числу 100₄ соотвествует 4²=16₁₀, поэтому получем ряд чисел 5, 5+16=21, 21+16=37. Все… следующее число уже превысит 40.
Ответ: 5, 21, 37.
Код полностью
var
i, s: integer;
begin
s := 0;
for i := 3 to 10 do
s := s + 13;
writeln(s);
end.
Вывод
104
Program gt;
var a,i,n,max:longint;
begin
read(N);
max:=0;
for i:=1 to n do
begin
read(A);
if(a>max)then max:=a;
end;
if(max=0)then writeln(‘положительных чисел нет’)else writeln(max);
end.
#include «math.h»#include «iostream»
using namespace std;
int main(){int a, n, max, min;int max_i, max_k, min_i, min_k;//ввод размера массиваcin>>a;cin>>n;
//объявление массиваint** a = new int* [a]; for(int i = 0; i < n; i++) { a[i] = new int [a]; }
//ввод первого массива for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) { cin>>a[i][k]; } } //Инициализация max, min; max=a[0][0]; min=a[0][0]; //поиск максимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) {<span> if(max<a[i][k])</span><span> {</span><span> max=a[i][k];</span><span> max_i=i;</span><span> max_k=k;</span><span> }</span> } } //поиск минимума for(int i = 0; i < a; i++) { for(int k = 0; k < n; k++) {<span> if(min>a[i][k])</span><span> {</span><span> min=a[i][k];</span><span> min_i=i;</span><span> min_k=k;</span><span> }</span> } }
//Max and Min меняются местамиswap(a[max_i][max_k],a[min_i][min_k]);getch();return 0;<span>}</span>
Следите за тем, чтобы отступы не терялись, они важны.
Буду считать, что программа с отступами выглядит так:
s = «123456»
while len(s) > 0:
s = s[2:]
print(«1″, end=»»)
В программе пока строка s не пуста от строки s отбрасываются первые два символа (с индексами 0 и 1) и выводится на печать 1.
На каждом шаге длина строки уменьшается на 2, изначально она равна 6, так что цикл выполнится 3 раза, и будет выведено 3 единицы.
Презентация на тему: » Целочисленное деление в Паскале. Задача Дано двузначное число. Нужно найти число десятков в нем.» — Транскрипт:
1
Целочисленное деление в Паскале
2
Задача Дано двузначное число. Нужно найти число десятков в нем.
3
Решение: Чтобы найти количество десятков (сотен, тысяч и пр.) нужно разделить исходное число на десять (сто, тысячу и пр.) нацело. Пример: 25/10=2(2 десятка) 689/100=6(6 сотен) В Паскале для целочисленного деления применяют оператор DIV
4
25 div 10 =2 689 div 10 =68 В общем виде: m div n целая часть от деленя m на n program des; var n:integer; Begin readln(n); writeln(n div 10,’десятков в числе’); End.
5
Задача Дана масса тела в килограммах. Составить программу перевода массы в тонны и килограммы.
6
Решение: В 1 тонне 1000 килограмм, то есть чтобы отделить количество тонн нужно нацело разделить число на Однако, нам необходимо найти и количество килограмм в остатке, то есть нам нужен еще и остаток от целочисленного деления. Пример: 6894/1000= 6 тонн и 894 килограмм 589/1000= 0 тонн и 589 килограмм В Паскале для определения остатка от целочисленного деления применяют оператор MOD
7
25 mod 10 =5 689 mod 100 =89 В общем виде: m mod n остаток от деленя m на n program tonna; var n:integer; Begin readln(n); writeln(n div 1000,’тонн и ‘, n mod 1000, ‘ килограмм’); End.
8
Задачи для тренировки: 1)С кондитерской фабрики отгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм конфет? 2)Дано двузначное число. Найти сумму и произведение его цифр. 3)Дано трехзначное число. Найти число, полученное при перестановке второй и третьей цифр заданного числа. 4)Допустим, вы получили наследство 1 млн. долларов и хотите красиво пожить. После долгих раздумий вы решаете, что будете жить на 8000$ в месяц. На сколько лет вам хватит наследства?
Дано целое неотрицательное число N, определите число десятков в нем (предпоследнюю цифру числа). Если предпосленей цифры нет, то можно считать, что число десятков равно нулю. (Напишите программу для решения в Pascal.ABC)