var a:integer;
begin
readln(a);
writeln(a mod 10,a div 10 mod 10, a div 100)
end.
Задача решается с помощью составления обычной пропорции (см. рисунок).
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<span>Program skazka;
Uses crt;
const n:string= 'nalevo';
a:string= 'napravo';
v:string= 'vpered';
Var p:string;
begin
clrscr;
writeln (' Kyda poidet geroi? nalevo,napravo ili vpered?');
readln (p);
if p=n then writeln ('Nalevo poidet - kon9 poter9et ');
if p=a then writeln ('Napravo poidet - cam propadet ');
if p=v then writeln ('Vpered poidet - nevesty naidet ');
Readln
end<span>.</span></span></span>
Это взвешенный Граф. Если рёбра графа характеризуются доп. инфой,например если у всех рёбер есть вес,то он называется взвешенным
1) решаем по формуле Хартли:<span> - вероятность, что достали красный клубок</span><span>бит</span>