Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
Var S:string;
i,r,k,t:integer;
Begin
r:=0;
k:=0;
t:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S) do
Case S[i] of
'r':r:=r+1;
'k':k:=k+1;
't':t:=t+1;
End;
WriteLn('r: ',r);
WriteLn('k: ',k);
WriteLn('t: ',t);
End.
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Смотри вложение
..............................