Слишком много задач сразу. Спрашивай по одной. А так не знаю, возьмется ли кто за такую объемную работу))
Да мне лишь бы сколько нибудь решить) Все равно сколько))
Может кто поможет хах)

Ответы и объяснения

  • Участник Знаний
2014-03-27T19:23:01+04:00
Var
   i,k,sum:integer;
   s,n:string;
begin
write('Введите трехзначное число:');
readln(s);
write('Какую цифру искать?');
readln(n);
for i:=1 to 3 do
   begin
   sum:=sum+StrToInt(s[i]);
   if s[i]=n then k:=k+1
   end;
writeln('Сумма ',sum);
writeln('Цифра ',n,' встречается ',k,' раз');
end.