Это кодирование<span> числовой информации с помощью десяти цифр – десятью знаками</span>
P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.
Const
USD=64.05; // Официальный курс доллара США к рублю на 08.07.2016
EUR=70.95; // Официальный курс евро к рублю на 08.07.2016
var
RUR:real; // сумма в российских рублях
begin
Writeln('Введите сумму в российских рублях: ');
Read(RUR);
Writeln('В долларах США: ',RUR/USD:0:2);
Writeln('В евро: ',RUR/EUR:0:2);
end.
<u><em>Тестовое решение:</em></u>
Введите сумму в российских рублях:
15200.76
В долларах США: 237.33
В евро: 214.25
Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>