Var x,y:real; n:integer;
function f(x:real;n:integer):real;
var i,st:integer;
begin
st:=1;
for i:=1 to n do st:=st*2;
f:=sin(x)*st;
end;
begin
writeln('x, n:');
readln(x,n);
y:=f(x,n);
writeln('x = ',x,' y = ',y);
end.
Пример:
x, n:
2 5
x = 2 y = 29.0975176584218
Римская система счисления - частично позиционная, и по правилам этой системы счисления предложенное число можно представить так:
DCXLI = 500 + 100 - 10 + 50 +1 = 641
Однако, можно было и не производить вычисления. Так как предложенное число нечетное, а в списке вариантов ответов присутствует только одно нечетное число.
Ответ: Б
Мин.: 8, макс.: 72 как то так
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var s:=0;
while n>0 do (s,n):=(s+n mod 10,n div 10);
if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
else Writeln('Неверно, что сумма цифр числа равна 10')
end
end.
<u>Пример</u>
Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10
<u>№2</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var a:=new integer[10];
var good:=False;
while n>0 do begin
var i:=n mod 10;
a[i]+=1; n:=n div 10;
if a[i]>1 then Good:=True
end;
if Good then begin
Write('Цифры, встречающиеся больее одного раза: ');
for var i:=0 to 9 do
if a[i]>1 then Print(i);
Writeln
end
end
end.
<u>Пример</u>
Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5