Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.
Цветок - цветок,хорошо пахнет,растение,?цвета,?листов.
//должно работать
var
x: real;
begin
x := 1.0;
while (x <= 2) do
begin
Writeln(exp(ln(x + exp(ln(2) * x)) * 2) + 21);
x := x + 0.5;
end;
end.
16 бит - это 16/8=2 байта.
Частота дискретизации 32000 Гц - это 32000 отсчетов в секунду, следовательно для 1с кодирования такой файл будет иметь размер 32000х2=64000 байт.
Тогда время звучания составит 3500х1024/64000=56 (с)
<em>Ответ: 56с</em>
#include<iostream>
using namespace std;
int main(){
int s;
cin>>s;
for (int i; i=10; i<100){
if ((i%10+(i-i%10)/10)==s) cout<<i;
}
return 0;
}