111001 это 57
<span>1011011 это 91</span>
Program Control;Uses crt;
Var x:integer;y,z:real;
Begin;
x:=5;
y:=7.5;
z:=x+y;
Writeln('summa=',z);
Readln;
End.
Var s,s1:string;
i:integer;
begin
write('Введите слово: ');
readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
writeln(s1);
end.
Пример:
Введите слово: дождь
ддоожжддьь