1. Дан набор команд в произвольном порядке (других команд в программе быть не должно). Соберите программу путем правильной расстановки команд. В фигурные скобки впишите комментарии к программе.

program vstolbik;
end;
if (st[i]<>' ') and (st[i+1]=' ') then {______}
end.
writeln(ss);
if (st[i]=' ') and (st[i+1]<>' ') then {______}
end;
readln(st);
begin
p:=length(st);
begin
ss:=copy(st,k+1,i-k); {__________________}
var st, ss: string; i, k, p: integer;
k:=i; {__________________}
begin
for i:=1 to p-1 do
st:=' '+st+' '; {__________________}
writeln('Введите текст');

Текст программы (текст должен быть виден):

2. Выполните программу. Если обнаружите ошибки, исправьте их.

3. Скриншот выполнения программы (текст программы должен быть виден):

Скриншот

Cкачать материалы урока

Урок 7Функции в языках объективно-ориентированного и процедурного программирования

§ 1.5. Функции в языках объективно-ориентированного и процедурного программирования

Содержание урока

Лабораторная работа № 10«Учимся программировать задачи с символьным и строковым типами данных»Шаг 2. Решаем задачи на Паскале. Задача 4

Урок 7
Функции в языках объективно-ориентированного и процедурного программирования

Лабораторная работа № 10
«Учимся программировать задачи с символьным и строковым типами данных»
Шаг 2. Решаем задачи на Паскале. Задача 4