Var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
Алгоритм – это понятное и точное предписание исполнителю выполнить конечную последовательность команд, приводящую от исходных данных к искомому результату. Алгоритмы окружают нас повсюду: кулинарный рецепт - алгоритм приготовления блюда, инструкция по использованию стиральной машины и т.д.
Свойства алгоритмов. Понятность – каждый шаг представлен в форме, понятной исполнителю (на его языке). Дискретность – разбиение на отдельные элементарные шаги. Однозначность - детерминированность, определённость формулировок, не допускающая разных толкований (исполнителю должно быть точно понятно, какой шаг выполнять дальше). Результативность – получение результата после конечного числа шагов, предусматривающее все возможные варианты (последовательность шагов не должна быть бесконечной).
Способы записи алгоритмов словесный; табличный; графический; программа на алгоритмическом языке.
Исполнителем алгоритма может быть не только человек, но и автоматическое устройство (реальное или воображаемое). В этом случае шаги алгоритма часто называют командами и вводят их в устройство в той форме, в которой оно сможет их обрабатывать. Языки алгоритмического управления устройствами являются формальными. Алгоритм, представленный на языке устройства, называется программой для этого устройства.
Исполнителя характеризует: Системой команд Исполнителя называется совокупность всех команд, которые может выполнить Исполнитель. Совокупность всех действий, которые он может выполнить в ответ на эти команды, называется системой допустимых действий Исполнителя. Среда – это обстановка, в которой работает исполнитель Элементарное действие – действие, совершаемое исполнителем после вызова команды. Отказы. Возникают при вызове команды в недопустимом для данной команды состоянии среды.
Var
i, sum, beg:integer;
str:string;
begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.
1) 7200*8=57600 кбит
2) 57600/ 192= 300 сек
300сек=5 мин
ответ:5 минут