Появление электронной почты можно отнести к 1965 году, когда сотрудники Массачусетского технологического института (MIT) Ноэль Моррис и Том Ван Влек написали программу MAIL для операционной системы CTSS (Compatible Time-Sharing System), установленную на компьютере IBM 7090/7094.
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var a := new BigInteger[n];
var k := BigInteger.One;
for var i := n-1 downto 0 do
begin
a[i] := k;
k *= 2
end;
a.Println
end.
В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой
Var a: array[0..49] of Integer; sr:real;sum,i,n: integer;beginwriteln('Исходный массив');for i:=0 to 49 do begina[i]:=Random(300);write(a[i]:4);if a[i] mod 2 = 0 then begin sum:= sum + a[i]; n:= n +1; end;end;sr:= sum / n;writeln;writeln('Cреднее арифметическое значение четных ',sr);end.