program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.
Сами команды:
Опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
Нарисуй :И+(Волгу) Вот весь ребус
1. Список имен файлов
2. Самый верхний корневой каталог в иерархической файловой системе
<span>1.Откройте меню Пуск. <span>Найдите значок Excel. Последовательно выберите пункты Все программы, Microsoft Office и Microsoft Office Excel 2010.
</span></span>
2.К операциям редактирования относятся:
<span>удаление и вставка строк, столбцов, ячеек и листов;копирование и перемещение ячеек и блоков ячеек;<span>редактирование текста и чисел в ячейках.
</span></span>3.Выделите первую ячейку или диапазон<span> ячеек и, удерживая клавишу CTRL, выделите курсором мыши остальные ячейки или </span>диапазоны<span>. Также можно, выбрав первую ячейку или </span>диапазон<span> ячеек, нажать сочетание клавиш SHIFT+F8, чтобы добавить другую несмежную ячейку или </span>диапазон<span> ячеек к области выделения.
</span>
(слишком много вопросов, извольте)