Дано натуральное четырёхзначное число. Найти сумму его последних двух цифр, результат вывести на экранPascal)​

// PascalABC.NET

begin

 var n := ReadInteger;

 Print(n mod 10 + n mod 100 div 10)

end.

Створити масив дійсних чисел від 1 до 5. Знайти мінімальне та максимальне значення. Знайти сумму мінімального та максимального значення.

Объяснение:

0 строка - оголошення процедури

1 строка - оголошення зміних та надання їм типу цілих чисел

2 -оголошення масиву

3- оголошення змінних та надання їм типу дійсних чисел

4-початок

5-

6-цикл з лічильником та присовення знінній і значення 0

7-перетворення масиву у з рядкового типу у дійсний

8-

9-цикл з лічильником  та присовення змінній і значення 1

10-перетворення з рядкового типу у цілі числа

11- перетворення з дійсного типу у рядковий

12-кінець

13-

14-присвоення змінній значення

15-присвоення змінній значення

16-присвоення змінній значення

17-цикли з лічильником  та присвоення змінній і значення 2

18-умова при виконанні якої max:=А[i]

19-

20-цикли з лічильником з  присвоєнням змінній і значення 1

21-умова при виконанні якої min:=А[i]

22-

23-

24-кінець

25- присвоєння рядкового типу

26-

27-знаходження сумми

28-

29-присвоєння рядкового типу

30-

31-кінець

Привожу 2 варианта решения.

Вариант 1: файл 1.cpp

Решение основано на обыкновенном вычислении периода дроби (для дробей, имеющих конечную десятичную запись(например, 1/2=0,5), период вычисляется для формы с нулем в периоде(то есть для 1/2 берется форма 0,5(0))) с деления столбиком.

Замечание: сам алгоритм деления в столбик я писал достаточно давно, и для других программ, поэтому его реализация в данном коде может быть неоптимальной (в плане памяти или кол-ва операций), однако он работает.

Вариант 2: файл 3.cpp

Если немного углубиться в математику, можно найти теорему, по которой дробь, представленная в виде m/n , где НОД(m, n) = 1, имеет конечную десятичную запись тогда и только тогда, когда ее знаменатель . Тогда достаточно сократить числитель и знаменатель на общие множители, а далее выполнить проверку знаменателя.