Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
Ответ:
использовать Робот
алг
нач
закрасить
нц пока слева свободно
влево
если снизу стена то закрасить всё
кц
нц пока сверху свободно
вверх
если слева стена то закрасить всё
кц
кон
Если не превышает 10 символов, то только 4 и 8 символов подходит (2 и 3 бита соответственно).
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x='); var (a,t):=(0,0.0);
for var i:=0 to x do
begin
a:=i; t:=2*a**2-9*a+(1/2);
Writeln('при а=',a,' ','выражение равно=',t);
end;
end.