Vitaly19991 пожалуйста выучи три команды из СКИ (системы команд исполнителя) "Стрелочка". Это будет быстрее чем задавать вопросы в И-нет:
ШАГ -перемещение на одно деление с рисованием линии;
ПРЫЖОК -перемещение на одно деление без рисования линии;
ПОВОРОТ -изменение направления движения на 90 гр. против часовой стрелки.
А пока держи алгоритмы (исходные данные то же, что и в предыдущих примерах:
Буква Ш:
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГ ШАГКОН
Буква Ц
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПРЫЖОК ПРЫЖОК ПОВОРОТ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГКОН
Буква Ч
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ШАГКОН
Буква Б
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПРЫЖОК ПОВОРОТ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГКОН
Буква П
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГКОН
Буква Е
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГКОН
Код ужасно кривой, но рабочий (надеюсь, принцип понятен):
1. Бензин
type
Benzin=class
public
money:double;
m:integer;
end;
var
b:Benzin;
begin
b:=new Benzin;
b.m:=0;
b.money:=20;
while b.money<22.0 do
begin
b.money:=b.money*1.02;
b.m:=b.m+1;
writeln('Сейчас бензин стоит: ',b.money);
writeln('Сейчас месяц прошел: ',b.m);
end;
end.
2. Вклад
type
biznes=class
public
money:double;
m:integer;
time:integer;
end;
var
b:biznes;
begin
b:=new biznes;
writeln('Напишите сумму рублей: ');
read(b.money);
writeln('Напишите кол-во месяцев: ');
read(b.m);
b.time:=0;
while b.time<b.m do
begin
b.money:=b.money*1.03;
b.time:=b.time+1;
writeln('Сейчас сумма: ',b.money);
writeln('Прошел месяц: ',b.time);
end;
end.
3. Тренировки
type
sport=class
public
first:double;
day:integer;
first2:double;
first3:double;
first4:double;
first5:double;
first6:double;
first7:double;
answer:double;
end;
var
s:sport;
begin
s:=new sport;
s.first:=5;
s.day:=1;
while s.day=1 do
begin
s.first2:=s.first*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first2);
writeln('День: ',s.day);
end;
while s.day=2 do
begin
s.first3:=s.first2*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first3);
writeln('День: ',s.day);
end;
while s.day=3 do
begin
s.first4:=s.first3*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first4);
writeln('День: ',s.day);
end;
while s.day=4 do
begin
s.first5:=s.first4*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first5);
writeln('День: ',s.day);
end;
while s.day=5 do
begin
s.first6:=s.first5*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first6);
writeln('День: ',s.day);
end;
while s.day=6 do
begin
s.first7:=s.first6*1.20;
s.day:=s.day+1;
writeln('Сейчас бегает: ',s.first7);
writeln('День: ',s.day);
end;
while s.day=7 do
begin
s.answer:=s.first+s.first2+s.first3+s.first4+s.first5+s.first6+s.first7;
s.day:=s.day+1;
writeln('Ответ: ',s.answer);
end;
end.
1) 5101912
5-10-19-12 диск
5-10-1-9-12 диазк
5-10-19-1-2 дисаб
5-10-1-9-1-2 диазаб
2) [10, 64, 32, 0, 65536]
Вес одного символа 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 10 * 64 * 32 шт = 20480 шт
Вес текста I = 20480 * 16 бит = 327680.0 бит =
= 40960.0 байт = 40.0 Кбайт = 0.0390625 Mбайт
3)
С:\Рабочий стол\Снегири.png
С:\Пользователи\Никита\Фото\Истра.jpeg
Антивирус по и обновления....
