Пример:
PROGRAM UDALENIE;
VAR Х:STRING[20];
BEGIN
X:=’HSH’;
DELETE(X,2,1);
WRITELN(X);
END. ответ: НН
Задачи:
1) Из слова ИНФОРМАТИКА удалите слово ФОРМА.
2) Получите из слова ЭЛЕКТАНЦИЯ слово ЭЛЕКТРОСТАНЦИЯ.
3) Соберите из букв Ь, М, Ш, Ы слово и выведите его на экран с команды сцепления.
4) В слове МОЛОКО заменить все буквы «О» на «Е», используя команды удаления и вставки.
На каждый следующий день спортсмен пробегает в
большее расстояние чем в предыдущий.
Т.е. если обобщить:
Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где
Чтобы найти сумму первых n членов геометрической прогрессии:
В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________