Begin
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
end.
<span>Математичекие сопроцессор отвечает за ускорение вычислений одинарной точности FP32 и двойной точности FP64 процессором.. В новых процессорах начиная где то с Пентиум 3 математический сопроцессор встроен в процессор. Так же возможно использовать видеокарту в качестве чистодробилки, но на игровых решениях это нерелевантно, а профессиональные карты слишком дороги.</span>
//алг цифры;
var N,k:integer; // цел N,K
begin // Нач
Read(N); // ввод (N);
k:=0; // k:=0
while N>=1 do // Пока N>=1
begin // нц
N:=N div 10; // N:=N div 10;
k:=k+1; // k:=k+1
end; // kц
Writeln(k) // Вывод k
end. // кон
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(20,2,5); a.Println;
For var i:=2 to 5 do Println('Кол-во',i,'=',a.Where(t->t=i).Count);
Writeln('Средний бал равен ', a.Average:0:2);
end.
Пример:
5 3 5 2 4 3 5 5 5 3 2 2 4 4 2 3 4 3 5 4
Кол-во 2 = 4
Кол-во 3 = 5
Кол-во 4 = 5
Кол-во 5 = 6
Средний бал равен 3.65