Program kvadratu;
var k,m,n,i:integer;
begin
Writeln('Введите n');
Writeln('Введите m');
Readln(n,m);
K:=(m-n);
Writeln(n*n);
for i:=1 to K do
begin
Writeln((n+1)*(n+1));
n:=n+1;
end;
end.
Если в палитре 65536 цветов, то для хранения 1 пикселя необходимо log(2)65536=16 бит. Для хранения изображения - 54*54*16=46656 бит
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
Ответ:
1. Использовать Робот
алг "Любое слово:)"
нач
нц пока справа свободно
закрасить
вправо
кц
вниз
вниз
нц пока слева свободно
закрасить
влево
кц
кон
2. Использовать Робот
алг "Любое слово-словосочетание:)"
нач
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
кон
3) Использовать Робот
алг "Любое словосочетание"
нач
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нч пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
кон
