<em>
Реализована формула</em>
<em>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
<u>Пример</u>Введите х и у: 2.175 -1.4
s=-0.335572582839361
Это программа должна выдать сразу? До какого значения? Конечная цифра задается с клавиатуры?
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2