Pascal
Program room;
Var a, b, c, d, m, n, S, o : real;
Begin
Readln(a, b, c, d, m, n);
S = a*b*4;
O = c*d + m*n;
S = S - O;
Writeln(S);
End.
При использовании алфавита из 128 символов для записи одного символа необходимо log(2)128 = 7 бит
Количество символов в сообщении = 3*x*50
Объем сообщения = 3*x*50*7 бит
7875 байт = 7875*8 бит
x = 7875*8/(3*50*7) = 60
Ответ: каждая страница текста содержит 60 строк
Напишем программу, которая будет считать сумму всех чисел от 1 до 1000.
<span><span>#include <iostream>
</span>
using namespace std;<span>
int main()
</span>{
int i; // счетчик цикла
int sum = 0; //сумма чисел от 1 до 1000.
setlocale(0, "");
for (i = 1; i <= 1000; i++) // задаем начальное значение 1, конечное 1000 и задаем шаг цикла - 1.
{
sum = sum + i;
}
cout << "Сумма чисел от 1 до 1000 = " << sum <<
endl;
return 0;
}</span>
Const e = 1e-5; // точность
var x, y, r, d :real;
begin
readln(x);
readln(y);
readln(r); r := r*r;
d := sqrt(sqr(x) + sqr(y));
if abs(d - r) < e then
writeln ('лежит на окружности')
else if d < r then
writeln ('попадает в круг')
else
writeln('вне круга');
<span>end.</span>