Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
Begin
A:=N;
S:=0;
While A>0 do
Begin
S:=S+(A mod 10);
A:=A div 10;
End;
A:=N;
P:=1;
While A>0 do
Begin
P:=P*(A mod 10);
A:=A div 10;
End;
if S=P then
Begin
WriteLn(N);
k:=k+1;
End;
End;
if k=0 then WriteLn('Нет');
End.
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.
<u>Пример</u>
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False
Формула Шеннона о количестве информации в событии с вероятностью p
i=-log(p)/log(2)
Важно только количество целых чисел в диапазоне. Чем больше чисел в диапазоне, тем меньше вероятность выбора одного числа и тем больше информации в сообщении о выборе
a) 76-12+1 = 65
в) 133-100+1=34
с) 25-(-17)+1=43
д) 0-(-32)+1=33
е) 34-12+1=23
Соответственно, наименьшее количество информации будет в сообщении о выборе числа из последнего диапазона, от 12 до 34
Решение приложил.
(О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.)</span>
1.
7, 6, 5, 4, 3, 2, 1, 0, -1, -2, -3, -4, -5, -6, -7
2.
алг Квадраты
нач
цел N, квадратN
нц для N от 10 до 99
квадратN:= N*N
вывод квадратN, нс
кц
кон
