Var r,v,w,n,kg:real;
begin
write ('Введите рост: ');
readln (r);
write ('Введите возраст: ');
readln (v);
write ('Введите вес: ');
readln (w);
WRITELN;
if v<25 then n:=r-110 else n:=r-100;
if n=w then writeln ('Ваш вес в норме');
kg:=w-n;
if n<w then writeln ('Вам надо сбросить',kg,' килограмм');
kg:=n-w;
if n>w then writeln ('вам надо поправится на ',kg,' килограмм');
end.
Насколько знаю, они все относятся к манипуляторам
Используем общую формулу для расчета объема информации
Информ объем=частота*разрядность* кол-во каналов * время
J = ню * i * n * t
J= 650 Кбит = 650 *1024 бит
i= 8 бит
n = 1 (1 канал - низкое качество)
ню = 11 КГц =11000 Гц = 11000 1/с
t= J / n * ню* i = 650*1024 бит / 1*11000 1/с * 8 бит ≈7.6 с≈8 с
Ответ 8 с
1) Пробелы ставятся после знаков препинания;
2) Знаки препинания ставятся сразу после слова - без пробела;
3) Дефис не обрамляется пробелами например: из-за
4) Тире обязательно обрамляется пробелами, например: Информатика - это...
5) Клавиша Enter нажимается в конце абзаца, а не в конце строки;
6) В тексте везде можно использовать только один пробел подряд;
и т.д.
Есть и еще правила конечно, но это пока все, что я вспомнил...
If x<1 Then y:=sqr(2) Else If x>1 Then y:=x+8 Else Writeln('x не должен быть=0')
Объяснение:
Если x<1, то y:=<u />
, иначе, если x>1, то y:=x+8,иначе вывести:x не должен быть=0