Ввести целое число и найти сумму его цифр. пример: введите целое число: 1234 сумма цифр числа 1234 равна 10.

Var i,number: integer;       sum: real; begin  sum: =0.0;     write('write number: ');   readln(number);   while( number > 0 ) do  begin    sum: = sum + ( number mod 10 );       number: =number div 10;   end;   writeln(sum); end.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.