#include "stdafx.h"
#include <iostream>
#include <fstream>

using namespace std;

int _tmain(int argc, _TCHAR* argv[])
{
 bool s = false;
 char fn[255];
cout << "Filename: " << endl;
 cin >> fn;
 ifstream fin(fn);
while(!fin.eof())
 if (fin.get() == 's')
 {
 s = true; break;
}
 fin.close();
 cout << "There " << (s ? "is" : "isn't") << endl;
 system("pause");
return 0;
}

0 0

4 года назад

Помогите написать, программу и блок схему для этого уравнения на Pascal Abc. Пожалуйста.

Лина1111

Ответ:

var

x, y: real;

begin

write('введите значение x=');

readln(x);

y := Power(Exp(2/3 - x), 1/5) / Sqrt(Power(x, 2) + Power(x, 4) + Ln(Abs(x - 3.4)));

writeln(y);

end.

Объяснение:

Делал в PascalABC.NET

Вот значения этой функции в трёх точках:

при x=-50 f(x)=10.0652313494729

при x=0 f(x)=1.0328923618595

при x=1 f(x)=0.551686948045355

0 0

3 года назад

Какова мощность алфавита, с помощью которого записано сообщение, содержащее 3072 символа, если его объем составляет 1,5 Кб?

ROWORDS [47]

L=1,5Кб=12288байт
K=3072 символа
Надо найти i
i=l/k
i=12288/3072=4бита - вес 1 символа в алфавите, т.е. мощность алфавита.

0 0

3 года назад