S = ’’;
А = ’BUTTERBROT’;
В = ’FLOWER’;
delete(A, 7,4); // A = ’BUTTER’
S:=A + copy(B,1,2)+’Y’; // S = ’BUTTER’ + ’FL’ + ’Y’ = ’BUTTERFL<span>Y’</span>
Program Perevod;
Uses Crt;
const c=2.54; // 1 дюйм - 2,54 сантиметра
var d,r:real;
begin
clrscr;
write('Введите длину в дюймах: ');
readln(d);
r:=c*d;
writeln('Длина в сантиметрах равна:',r);
readkey;
end.
Var
y:integer;
s:string;
begin
Write('Введите год (800-3000): ');
Readln(y);
y:=(y-800) mod 12;
case y of
0:s:='Дракон';
1:s:='Змея';
2:s:='Лошадь';
3:s:='Коза (овца)';
4:s:='Обезьяна';
5:s:='Петух';
6:s:='Собака';
7:s:='Свинья (кабан)';
8:s:='Крыса (мышь)';
9:s:='Бык (корова)';
10:s:='Тигр';
11:s:='Кролик (заяц, кот)';
end;
Writeln(s)
end.
Тестовое решение:
Введите год (800-3000): 2031
Свинья (кабан)
1. Солнце-круг с точкой в центре
2. Идти-две ноги
3. Хлеб-полукруг
4. Рот-сильно вытянутый полуовал
3 режим это заливка и контрл С