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.
Номер 3
program ggg;uses GraphABC;var r: integer;beginwriteln('введи число');readln(r);writeln(r div 60:0:2,'минут',r-60,'секунд');end.