Информацирнное сообщение объёмом 8 кбайт состоит из 1024 символов. каков информационый вес символа этого сообщения. сколько символов содержит алфавит, с которого записано это сообщение?
Линейное ур-е имеет вид: ax^2+bx+c=0, где a, b, c - кофиценты Чтобы решить кв. ур-е нужно: Определить дискриминант по формуле: D(дискриминант)= b^2 * -4ac 2) Если D<0, то уравнение не имеет корней Если D=0, то один корень Если D>0, то два корня 3) ищем корни по формуле, Если D=0: x=-b/2a Ищем корни по формуле, если D>0: x1=-b+√D/2a x2=-b-√D/2a
по теореме Виета: x1+x2=-b/a x1*x2=c/a И подбираем корни.
По свойству корней. Если a+b+c=0, то x1=1 x2=c/a Если a-b+c=0, то x1=-1 x2=-c/a
Нахождение площади треугольника: S=h*x*1/2, где h- высота треугольника, x - основание, к которому проведена ввсота
Var M, Day : integer; Sm, S : real; begin writeln('Вычисление стоимости телефонного разговора'); writeln('Введите исходные данные'); writeln('Стоимость минуты разговора, руб. '); readln(Sm); writeln('Длительность разговора (целое количество минут) '); readln(M); writeln('День недели (1-понедельник, ... 7-воскресенье) '); readln(Day); S:=Sm*M; if (Day=6)or(Day=7) then writeln('Стоимость разговора с учетом скидки = ',S*0.8,' руб') else writeln('Стоимость разговора = ',S,' руб'); end.
Пример: Вычисление стоимости телефонного разговора Введите исходные данные Стоимость минуты разговора, руб. 1 Длительность разговора (целое количество минут) 6 День недели (1-понедельник, ... 7-воскресенье) 7 Стоимость разговора с учетом скидки = 4.8 руб
