<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
Дорожные знаки называют - международным языком улицы! гос.стандартом определены 4 группы дорожных знаков - предупреждающие, запрещающие, предписывающие и указательные!)
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.
1)Идем рвать липу
2)наливаем в чайник воду
3)ставим на плиту и ждем 5 минут
4)В кружку кладем липу
5)Снимаем чайник с плиты
6)Наливаем воду в кружку
7)Ждем пока завариться
8) Пьем чай