profile
Опубликовано 5 лет назад по предмету Информатика от AlinaDoronina2012

Найти сумму чисел четырехзначного числа(решить с циклом пост условия)СРОЧНО!!!

  1. Ответ
    Ответ дан Аленусик
    var a,s:integer;
    begin
    readln (a);
    repeat
    s:=s+a mod 10;
    a:=a div 10;
    until a=0;
    writeln (s);
    end.
Самые новые вопросы