Вместе с інформаційна панель може відображати повідомлення - вопрос №14159418 от sachachura 27.03.2022 06:20

Question

Информатика: Вместе с інформаційна панель може відображати повідомлення що складаються з 10 цифр, причому кожна цифра може бути трьохкольорів. Цифри і кольори можуть повторюватися. Контролер панелівиділяє під кожне повідомення однакове і мінімальне можливе цілечисло байт. При цьому використовується посимвольне кодування, всісимволи повідомлення кодуються однаковим і мінімально можливим ціле число байт. при цьому використовується посимвольне кодування,всі символи повідомлення кодуються однаковим мінімально можливим

sachachura · Answer

1. Вот так это нужно решать по-современному

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.

Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9

2. А вот так учат решать в школе...

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
    a[i]:=Random(20)+1;
    Write(a[i],' ');
    if a[i]>10 then k:=k+1
    end;
Writeln;
Writeln('k=',k)
end.

Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6