Марго1234567
Опубликовано 7 лет назад по предмету Информатика от Марго1234567


Дано натуральное четырехзначное число n. Найти сумму его цифр.

  1. Ответ
    Ответ дан Formalka

    Паскаль же?

    var s, x: string; c, n, err, i, d, k:integer;begin readln (s); n:=length(s); for i:=1 to n do begin

    d:=d+k;

    val(s,k,err);

    end;

    write (d);

    end.

  2. Ответ
    Ответ дан bolela

    var a,b,c,d,x,res:integer;

    begin

    readln(x);

    a:=x div 1000;

    b:=x mod 10;

    c:=x div 100 mod 10;

    d:=x mod 100 div 10;

    res:=a+b+c+d;

    writeln(res);

    readln;

    end.

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц