Uses crt;
var s,i,x : integer;
begin

Read(x);
For i:=1 to 5 do begin
                   s:=s + (x mod 10);
                   x:=x div 10;
                 end;
Write (s);

end.

Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.

0 0

4 года назад

Помогите умоляю!!10баллов

Татьяна Николавна

Мы имеем две короткие стены, две длинные стены, две двери и три окна

Мы имеем две короткие и две длинные стены.
Из площади двух коротких стен нужно вычесть площадь одной двери и одного окна: 18 - 2,1 - 2 = 13,9 кв. м коротких стен нужно покрасить
Из площади двух длинных стен нужно вычесть площадь одной двери и двух окон: 36 - 4,2 - 2 = 29,8 кв. м длинных стен нужно покрасить
Общая площадь стен под покраску = 29,8 + 13,9 = 43,7 кв. м
На 1 кв. м приходится 100 руб. => 43,7×100 = 4370 рублей потребуется на покраску стен

0 0

4 года назад

Сравнение файлов Первый файл на 1 мегабайт больше, чем второй файл. Второй файл на 3072 байта больше, чем третий файл. На скольк

Сергей Острецов

1 мегабайт=1024*1024 =1048576 байт.... дальше сам

0 0

3 года назад