Формула нахождения НОК двух чисел 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.
Рассмотрим оба варианта.
Сог = 2, гл = 3.
Крейсер 16
Уловка 15
Электричество 31
Преподаватель 31
Молоко 15
Сог = 3, гл = 2
Крейсер 19
Уловка 15
Электричество 34
Преподаватель 34
Молоко 15
Если подсчитать символы, то
<span> 2732101263310132 16
391002810039 12
104281032127100 15
, 291032810327103 15
</span>
Подходит только первый вариант, слова соответственно "крейсер", "шалаш", "уловка", "молоко" ИЛИ "крейсер", "шалаш", "молоко" "уловка".,
из первых двух слов:
к = 27 р = 32 е = 101 й = 26 с = 33 ш = 39 а = 100 л = 28
104281032127100 оканчивается на 100, то есть на а, значит это уловка
у = 104 о = 103
для роутера недостает буквы т.
из порядка гласных (0 = 103, у = 104, а в алфавите у следующая гласная за о), понятно, что т = с+1 = 34
тогда роутер = 32 103 104 34 101 32
<span> </span>
9412=16
8096=23
6472=19
1570=13
5971=22
<em>ПАСКАЛЬ</em>
var
x,y,z,r:real;
procedure ST(a,b,h:real; var s:real);
begin
s:=(a+b)*h/2
end;
begin
Write('Введите длины оснований и высоту трапеции: ');
Read(x,y,z);
ST(x,y,z,r);
Writeln('Площадь трапеции равна ',r:0:5)
end.
<u>Пример</u>
Введите длины оснований и высоту трапеции: 10.4 7.3 8
Площадь трапеции равна 70.80000
Разрядность регистра-определяет колличество разрядов обрабатываемых процессром данных,а также характеристики программного обеспечения и команд выполняемых чипом.
