Как найти десятки в трехзначном числе паскаль

Перейти к содержанию

var

	n: integer;

	a,b,c: byte;

begin

	readln(n);

	a := n div 100;

	b := n div 10 mod 10;

	c := n mod 10;

	writeln('Сумма: ',a+b+c);

	writeln('Произведение: ',a*b*c);

end.

#include 

 
main() {

    int n,a,b,c;

    scanf("%d", &n);

    a = n / 100;

    b = n / 10 % 10;

    c = n % 10;

    printf("Сумма: %dn", a+b+c);

    printf("Произведение: %dn", a*b*c);

}

349

Сумма: 16

Произведение: 108

n = input("Введите трехзначное число: ")

n = int(n)

 
d1 = n % 10

d2 = n % 100 // 10

d3 = n // 100

 
print("Сумма цифр числа:", d1 + d2 + d3)

print("Произведение цифр числа:", d1 * d2 * d3)

Введите трехзначное число: 742

Сумма цифр числа: 13

Произведение цифр числа: 56

алг сумма цифр

нач

  ввод n

  a := div(n,100)

  b := mod(div(n,10),10)

  c := mod(n,10)

  вывод "Сумма: ", a+b+c, нс

  вывод "Произведение: ", a*b*c, нс

кон

input n

 
a = n  100

b = n  10 % 10

c = n % 10 

 
print a+b+c

print a*b*c

Совсем недавно мы закончили разбор первого раздела сборника «1000 задач по программированию» — раздела Begin. Но на этом мы не останавливаемся, и прямо сейчас начинаем разбирать новый раздел — раздел Integer. (Думаю, вы уже догадались, что все переменные, представленные в следующих задач Integer1-10 — целые числа.)

В  Integer  основной упор будет сделан на div и mod.

Integer1. Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см).

Program Integer_1;

var l, k: integer;

begin
  write ('Введите значение L:');
  readln (l);
  k := l div 100;
  write ('Количество полных метров: ', k,'.');
end.

Integer2. Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).

Program Integer_2;

var M, k: integer;

begin
  write ('Введите значение M: ');
  readln (M);
  k := M div 1000;
  write ('Количество полных тонн: ', k,'.');
end.

Integer3°. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).

Program Integer_3;

var a, k: integer;

begin
  write ('Введите размер файла: ');
  readln (a);
  k := a div 1024;
  write ('Количество полных килобайтов: ', k,'.');
end.

Integer4. Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию деления нацело, найти количество отрезков B, размещенных на отрезке A.

Program Integer_4;

var a, b, k: integer;

begin
  write ('Введите a и b: ');
  readln (a, b);
  k := a div b;
  write ('Количество отрезков B, размещенных на отрезке A: ', k);
end.

Integer5. Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка A.

Program Integer_5;

var a, b, k: integer;

begin
  write ('Введите a и b: ');
  readln (a, b);
  k := a mod b;
  write ('Длина незанятой части отрезка: ', k);
end.

Весьма вероятно, что условия следующих задач покажутся вам знакомыми, что ничуть не странно, ведь в одном из уроков мы уже приводили решение задачи, подобной данным.

Integer6. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления.

Program Integer_6;

var chislo, desyatki, edinizi: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  desyatki := chislo div 10;
  writeln (desyatki);
  edinizi := chislo mod 10;
  writeln (edinizi);
end.

Integer7. Дано двузначное число. Найти сумму и произведение его цифр.

Program Integer_7;

var chislo, desyatki, edinizi, summa, proizv: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  desyatki := chislo div 10;
  edinizi := chislo mod 10;
  summa := desyatki + edinizi;
  proizv := desyatki * edinizi;
  writeln ('Сумма цифр числа: ', summa);
  writeln('Произведение цифр числа: ', proizv);
end.

Integer8°. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

Program Integer_8;

var chislo, desyatki, edinizi: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  desyatki := chislo div 10;
  edinizi := chislo mod 10;
  chislo := edinizi * 10 + desyatki;
  writeln ('Полученное число: ', chislo);
end.

Integer9. Дано трехзначное число. Используя одну операцию деления нацело, вывести первую цифру данного числа (сотни).

Program Integer_9;

var chislo, sotni: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni := chislo div 100;
  writeln (sotni);
end.

Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки).

Program Integer_10;

var chislo, desyatki, edinizi: integer;

begin
write ('Введите число: ');
readln (chislo);
edinizi := chislo mod 10;
writeln (edinizi);
desyatki := chislo mod 100 div 10;
writeln (desyatki);
end.

Согласитесь, что это были не очень сложные задачи, поэтому никаких объяснений и блок-схем не требуется. Если же у вас возникли какие-либо проблемы, то не стесняйтесь и пишите все свои вопросы в комментарии под этой статьей. Ну, а если вам просто понравилась эта статья, то обязательно кликайте по кнопочкам, которые расположены ниже.  🙂