Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>
Австрия - Вена
Болгария - София
Венгрия - Будапешт
Германия - Берлин
Дания - <span>Копенгаген
</span>
В чём помощь - то требуется?
Период = 7249 - четыре(4) цифры
144 : 4= 36
после запятой позиции цифр: (период начинается со 2-ой позиции)
1 2 3 4 5 ..... 142 143 144 145
3 7 2 4 9 .... 7 2 4 9
ответ 4
//Немного приведения типов на сон грядущий.
а)d(real)+1(integer)=>real
б)a(integer)*d(real)=>real
в)a(integer)-2(integer)=>integer
г)15 mod 5(всегда возвращает integer)=>integer
д)a(integer)+b(integer)+c(integer)/n(real)=>real(т.к. дробь)
е)b(integer)/c(integer)*100(integer)=>real(т.к. дробь)
ж)(a(integer)+b(integer))*2(integer)-d(real)=>real