Преимущества электронной почты:
Электронная почта надёжнее, дешевле, медленнее обычной почты.
Возможность отправлять письмо только одному адресату.
Возможность отправлять письмо нескольким адресатам.
Электронная почта позволяет с высокой скоростью передавать изображения, документы, программы.
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqRandom(10,-10,20).Select(x->(x,1/x)).Println(NewLine)
end.
Пример
(13,0.0769230769230769)
(-10,-0.1)
(9,0.111111111111111)
(-5,-0.2)
(14,0.0714285714285714)
(18,0.0555555555555556)
(15,0.0666666666666667)
(3,0.333333333333333)
(-5,-0.2)
(-9,-0.111111111111111)
2. "Красивый" вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqRandom(10,-10,20).Select(x->(x,1/x))
.Foreach(x->Writeln(x[0]:3,x[1]:15:8))
end.
Пример
18 0.05555556
-10 -0.10000000
16 0.06250000
6 0.16666667
15 0.06666667
13 0.07692308
5 0.20000000
18 0.05555556
-1 -1.00000000
13 0.07692308
3. А так писали наши деды четверть века назад...
var
i,x:integer;
begin
Randomize;
for i:=1 to 10 do begin
x:=Random(31)-10;
Writeln(x:3,1/x:15:8)
end
end.
Пример
-7 -0.14285714
11 0.09090909
-2 -0.50000000
-10 -0.10000000
14 0.07142857
-7 -0.14285714
-5 -0.20000000
5 0.20000000
13 0.07692308
10 0.10000000