Формула нахождения НОК двух чисел A и B
1) НОК=(A*B) / НОД(A,B)
Program FindNOK;
Uses Crt;
var n,m,res,nok:integer;
function evklid( a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a:= a mod b
else
b:= b mod a;
evklid:= a + b;
end;
begin
clrscr;
writeln('Введите A и B');
readln(M, N);
res:= (Evklid(n,m));
nok:= (m*n) div res;
writeln('NOK=',nok);
readkey;
end.
Формула для вычисления количества информации: . Вычислим объем информации в письме племени Мульти. К = 17, так как используется 17-символьный алфавит. N = 100, так как в письме 100 символов. Получается Тогда, раз , то I = 500 бит.
Вычислим объем информации в пиьме племени Пульти. бит. Значит, в письме племени Мульти содержится в два раза больше информации.
var x: integer;
begin
write('Введите номер месяца: ');
readln(x);
if (x = 9)or(x = 10) then writeln('I четверть');
if (x = 11)or(x = 12) then writeln('II четверть');
if (x = 1)or(x = 3) then writeln('III четверть');
if (x = 4)or(x = 5) then writeln('IV четверть');
end.
Мы ищем динамикой наибольшую подпоследовательность для отрезка [0; i] где гарантировано должен быть i-ый элемент. Потом выбираем из всех наибольшее число.
Пусть S - ср.арифм. S := (x1 +x2)/2
k := k-1
i := i+1
пусть N - количество тетрадей, M - цена одной тетради, H - цена одной обложки, S - стоимость всей покупки, тогда S := (M+H)*N