530 * 90 * 70 = 3339000
3339000 : 8 = 417375
3339000 : 417375 = 8
Ответ : 8
1.Составить программу с использованием процедуры нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел.
НОК(А, В)= (А*В)/НОД(А,В)
2.Составить программу с использованием процедуры для нахождения чисел из интервала [M, N], имеющих наибольшее количество делителей.
3.Найти количество цифр в заданном натуральном числе. Написать программу с исполь-зованием функции
4.Написать программу с использованием процедуры, которая находит и выводит все четырех-значные числа вида abcd, для которых выполняется: ab – cd = a + b + c + d, где a, b, c, d – разные цифры.
5.В заданной матрице А(n*n) найти максимум из всех минимальных элементов матрицы по строкам. Использовать процедуры ввода и вывода элементов матрицы по строкам.
6.Натуральное число, в записи которого n цифр, называется числом Амстронга, если сумма его цифр, возведенная в степень n, равна самому числу. Найти все эти числа от 1 до k. Составить программу с использованием процедуры
1. Два мальчика переплывают на другой берег.
2. Один мальчик остаётся, один возвращается.
3. Солдат переплывает на другой берег.
4. Оставшийся мальчик переплывает за товарищем.
5. Два мальчика переплывают на другой берег.
<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
<h2>1908</h2><h2>83894</h2><h2>131266</h2><h2>151346</h2><h2>32772499</h2>
2) Тело цикла выполнится три раза:
при i := 2, в результате чего S := 2*2 := 4;
при i := 3, в результате чего S := 4*4 := 16;
при i := 4, в результате чего S := 16*16 := 256.
Ответ: 256.