// C++
#include <iostream>
int main()
{
int input;
std::cin >> input;
std::cout << "sum = " << input % 10 + input % 100 / 10;
if(input % 10 > input % 100 / 10)
{
cout << input % 10 << " > " << input % 100 / 10;
}else if(input % 10 < input % 100 / 10)
{
cout << input % 10 << " < " << input % 100 / 10;
}else
{
cout << input % 10 << " = " << input % 100 / 10;
}
return 0;
}
Основная формула N=2b
32=2^5. Из этого следует, что вес одного символа равен 5ти битам.
5*128*48*10=307 200 бит.
307 200:8= 38400 байт
38400:1024= 37.5 Кбайт
Напомню, что:
1 байт= 8 бит
1 Кбайт= 1024 Кбайт
В той же папке, где будет программа, создаете два блокнота, называете input и output
a:array[1..10000] of integer;
i, k, min, imin:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt');
rewrite(output); rewrite(input);}
for i:=1 to 10 do
read(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then begin min:=a[i]; imin:=i; end;
writeln;
writeln(min,' ', imin);
end.
задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.
выразим размер файла в Мб: 1562/1024=1,525Мб
теперь узнаем сколько таких файлов поместится на компакт-диск
650/1,525=426 файлов это и есть ответ
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,h):=(0.0,3*Pi,0.6);
var x:=a;
var (k,s):=(0,0.0);
while x<=b do begin
var y:=x*Sin(x);
Writeln(x:5:1,y:18:13);
if y>0 then k+=1 else s+=y;
x+=h
end;
Writeln('Положительных- ',k,', сумма отрицательных ',s)
end.
<u>Пример</u>
0.0 0.0000000000000
0.6 0.3387854840370
1.2 1.1184469031607
1.8 1.7529257355808
2.4 1.6211116333228
3.0 0.4233600241796
3.6 -1.5930735958615
4.2 -3.6606182441371
4.8 -4.7815901224120
5.4 -4.1729282328023
6.0 -1.6764929891936
6.6 2.0561729991883
7.2 5.7144086197139
7.8 7.7886380939219
8.4 7.1786308279416
9.0 3.7090663671758
Положительных- 10, сумма отрицательных -15.8847031844065
