Если информатика, то утверждение верное, так ведь?
Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
Количество каналов =2 (стерео)
t=1,5 мин =1,5*60 с = 90 с
Н =36 КГц =36*1000 Гц=9*4*8*125 1/с=9*125*2^5 1/c = 1125*2^5 1/c
F=2 *8*90*1125*2^5 бит=1125*45*2^4*2^5 бит=50625*2^10 бит =
= 6328,125 Кбайт =6,2 Мбайта
N i K
8 3 200*3=600
16 4 110*4=440
64 6 120*6=720
128 7 100*7=700
256 8 80*8=640