Procedure solution(n: byte; var s: integer);
var
i: byte;
a: integer;
begin
s := 10;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
s := s + sqr(a);
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(p)
end.
Var s : string;
i, k : integer;
begin
Readln(s);
k:=0;
for I := 1 to Length(s) div 2 do
if s[i]= s[Length(s)-k] then k:=k+1;
if k= Length(s) div 2 then Write('Полиндром') else Write('Не полиндром'); Readln
end.
Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>
Уменьшение размера изображения ведет к потери четкости, а увеличение изображение ведет к эффекту ступенчатости. Ступенчатость <span>ведёт к наибольшим потерям его качества</span>
1) 30 букв плюс 10 цифр в сумме дают 40 символов. Значит, для их кодировки нам потребуются цифры от 0 до 39. Переведем 39 в двоичную систему счисления, чтобы посмотреть, сколько битов (разрядов) оно займет.
39(10)=100111(2) ⇒ требуется 6 битов.
2) В номере сертификата 5 символов, значит они займут 5*6=30 битов. По условию номер сертификата кодируется целым количеством байтов, а в байте 8 бит. Делим 30 на 8 и получаем 3.75. Округляем в большую сторону. Номер сертификата занимает 4 байта.
3) 80 номеров займут 4*80=320 байт. Ответ 2).