Procedure (var n: integer);
var i: integer;
begin
for i := 1 to n do
WriteLn (' Я люблю Паскаль!!!');
end;
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
<span>в разделе Программы или Приложения Стандартные Блокнот или в поисковике набрать</span>
Справа откладываем триады (3 символа)
Каждую триаду переводим в 10-тичную систему
10 101 010 001 110 = 2 5 2 1 6
Значит 10101010001110 (2) = 25216 (8)