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
Если хочешь можешь еще сделать проверку на пятизначное число.
или 
? Пусть будет 2-й вариант...
Будем использовать итерационную формулу Герона:
------------
#include <iostream>
#define MOD(x) ((x) > 0 ? (x) : -(x))
using namespace std;
int main()
{
double x, a = 1;
cout << "Input x: ";
cin >> x;
// Здесь можно задать бОльшую точность
while (MOD(a * a - x) > 0.0001)
a = 0.5 * (a - x / a);
cout << "y = " << a - 1 << endl;
}
var a:real;
b:integer;
begin
readln(a);
b:=round(a*1000)mod 1000;
write(b div 100 + b mod 10 + b mod 100 div 10);
end.
Ответ: Правильный ответ указан под номером 2.
Объяснение:
Для того, чтобы сообщение, записанное с помощью неравномерного по длине кода, однозначно раскодировалось, требуется, чтобы никакой код не был началом другого (более длинного) кода. Рассмотрим варианты для буквы Д, начиная с самого короткого.
1) Д=1: код буквы Д является началом всех представленных кодов букв, поэтому этот вариант не подходит.
2) Д=0: код буквы Д не является началом другого кода, поэтому этот вариант подходит.
3) Д=01: код буквы Д не является началом другого кода, поэтому этот вариант подходит.
4) Д=10: код буквы Д является началом кодов букв В и Г, следовательно, этот вариант не подходит.
Таким образом, подходят два варианта: 0 и 01. 0 короче, чем 01.
