Program z1;
var s,k:longint;
Begin
Readln(s);
k:=trunc(sqrt(s));
Writeln(k);
End.
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".
<span>long Factorial (int i)
{
if (i==0) return 1;
else return Factorial(i-1)*i;
}
int main()
{
float sum=0;
</span>for (int i=0;i<N;i++)
{
Sum=Sum+(Facotrial(i)/(2*i+1))
}
<span>S=sum;
cout<<s;
return 0;
<span>}
Примерно так. Только библиотеки не помню.
</span></span>
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
var i, multi:integer;
s:string;
begin
readln(s);
multi:=1;
for i:=1 to length(s) do begin
if StrToInt(s[i]) mod 3 = 0 then
multi:=multi*StrToInt(s[i]);
end;
if multi = 1 then
writeln('Нет')
else
writeln(multi);
end.