Question

Паскаль! Помогите пожалуйста!Дано целое число, больше 99. Найти третью от конца его цифру, последнюю цифру и разность квадратов этих цифр (использовать функции DIV и MOD).

Answer 1

Var a,a1,a3,s: integer;
begin
read(a);
if a>99 then begin
a1:= a div 100 mod 10;
writeln (a1);
a3:= a mod 10;
writeln (a3);
s:=a1*a1-a3*a3;
writeln(s);
end;
end.

Answer 2

Для решения данной задачи воспользуемся функциями DIV и MOD, которые позволяют нам получить целую часть от деления и остаток от деления соответственно.

Предположим, что данное целое число обозначается переменной n.

1. Чтобы найти третью цифру числа с конца, нужно сначала поделить число на 1000 (или 10^3), чтобы избавиться от всех цифр, стоящих левее третьей цифры. Затем, чтобы получить третью цифру, нужно найти остаток от деления полученного числа на 10. Это можно сделать следующим образом:

third_digit = (n DIV 1000) MOD 10

2. Чтобы найти последнюю цифру числа, нужно найти остаток от деления числа n на 10:

last_digit = n MOD 10

3. Чтобы найти разность квадратов третьей цифры и последней цифры, нужно сначала найти квадрат каждой цифры, а затем вычесть одно из другого:

third_digit_square = third_digit * third_digit last_digit_square = last_digit * last_digit difference = third_digit_square - last_digit_square

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