Использовать Чертежник
алг
нач
сместиться в точку (0,0)
Квадрат
сместиться в точку (3,3)
Квадрат
сместиться в точку (6,6)
Квадрат
кон
| Квадрат
алг Квадрат
нач
опустить перо
сместиться на вектор (-3,0)
сместиться на вектор (0,-3)
сместиться на вектор (3,0)
сместиться на вектор (0,3)
поднять перо
кон
program delin;
const
nn = 100;// максимальный размер массива
var
i, j, n, t: integer;
a: array[1..nn] of integer;
begin
write('n = ');
read(n);
randomize;
for i := 1 to n do
begin
a[i] := random(38) - 9;
write(a[i], ' ');
end;
writeln;
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] > a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t;
end;
for i := 1 to n do
write(a[i], ' ');
end.
Var n,i,k,s:integer;
begin
read (n);
k:=0;
s:=0;
for i:=1 to n do
begin
if (n mod i = 0) then
begin
if (i mod 2 = 0)then
begin
k:=k+1;
end else
begin
s:=s+i;
end;
end;
end;
writeln ('Кол-во чётных - ',k);
writeln ('Сумма нечётных - ',s);
end.
Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно :
25 букв + 10 цифр = 35 символов.
Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому:
( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется:
7 * 6 = 42 бита.
Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону.
Ближайшее число кратное 8 - это 48.
48 / 8 = 6 байт.
6 БАЙТ занимает 1 номер.
Таким образом, 6 * 80 = 480 байт.
Сошлось или же я что-то упустил?
Var t,n,m,s:integer;
begin
write('t (1,2,3) = ');
readln(t);
writeln('n, m:');
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end;
2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end;
3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end;
else writeln('Ошибка ввода');
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600