Глобальная сеть это обьединение всех компьютеров через сеть Интернет
===== PascalABC.NET =====
begin
var a := ReadArrInteger('Введи 5 чисел:', 5);
Print('Введено:');
a.Println;
Println('Сумма чисел равна', a.Sum);
a.Transform(p -> p - 1);
Print('Уменьшили элементы на 1:');
a.Println;
Println('Количество нулей:', a.Count(p -> p = 0))
end.
Мы празднуем украинские праздники одеваем украинские костюмы
Program sagen_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*2.1366;
writeln (i,' сажень =',a,' м');
end;
end.
program fut_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*0.3048;
writeln (i,' фут =',a,' м');
end;
end.
program drahm_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*3.7325;
writeln (i,' драхм =',a,' г');
end;
end.
program unziy_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*29.86;
writeln (i,' унция =',a,' г');
end;
end.