Var a, b, c, x, y, z: real;
begin
read(a,b,c);
z := sqr(cos(b)) - c * sin(sqr(a) * a);
if z < 0
then
x := -exp(ln(-z) / 3) {т.к. в Pascal нет стандартного кубического корня, то приходится использовать искусственное возведение в степень}
else
x := exp(ln(z) / 3);
y := ln(abs(sin(a - b) / (sin(4 * c) / cos(4 * c))));
writeln('x = ', x, ', y = ', y);
<span>end.
--------------
var x, y, z: real;
begin
read(x, y);
if sqr(x) > abs(4 * x * y)
then
z := ln(abs(x + y));
if sqr(x) < abs(4 * x * y)
then
z := sin(1 /(x * y)) / cos(1 /(x * y));
if sqr(x) = abs(4 * x * y)
then
z := exp(x * y + sqrt(sin(x)));
writeln('y = ', sqr(sin(z)));
<span>end.</span></span>
Найдем кол-во байт, которое нужно передать. 640*480*3=921 600 байт. Переведу в биты. 1 байт = 8 бит, следовательно 921 600 байт умножаем на 8.
921 600 * 8 = 7 372 800 бит.
Теперь найду время, поделив кол-во бит на скорость передачи.
7 372 800 : 25 600 = 288 секунд.
Ответ: 288 секунд
1.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1*a2 mod 5 = 0
then writeln('Да') else writeln('Нет');
end.
Пример:
a = 52
Да
2.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1>a2
then writeln('2*',a1,' = ',2*a1) else writeln('2*',a2,' = ',2*a2);
end.
Пример:
a = 93
2*9 = 18
3.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1 mod 2 = 0 then writeln('3*',a1,' = ',3*a1);
if a2 mod 2 = 0 then writeln('3*',a2,' = ',3*a2);
end.
Пример:
a = 45
3*4 = 12
Ответ:
Объяснение:
1) книга;дети;печатный текст
2) компьютер; мальчик; эл. Текст
3)воспитательница/учитель; дети; слух
4) мальчик; холст; графический
Объективность - 6, достоверность - 5, актуальность - 3, полезность - 4, понятность - 1, полнота - 2
