Работник зарабатывает x руб. за каждые 38 часов своей работы. ему платят в 1.5 раза больше за каждый час сверх 38 часов. какую сумму он получит, если работает a часов (а должно быть заведомо больше 38)начертить блок-схему

ответ:

var x,a,h,s: real;

begin

writeln('введите кол-во часов');

readln(h);

writeln('введите сумму за один час');

readln(x);

s: =0;

if h< =38 then s: =x*h;

if h> 38 then s: =x*38+(38-h)*x*1.5;

writeln('сумма=',s);

end.

За что и возьмём: i = 2 бита, p - некая вероятность того, что ученик получил пятёрку. тогда:   2 = log2(1/p) - решаем обычное логарифмическое уравнение  log2(4) = log2(1/p)  4 = 1/p  p = 1/4  но ведь вероятность получения пятёрки рассчитывается как: кол-во пятёрок делённое на суммарное кол-во оценок. какой из этого вывод? ! известна вероятность, известно суммарное кол-во оценок - неизвестно кол-во оценок. всё тривиально просто - нам уравнение с одной неизвестной:   x / 100 = 1/4  где, как ты уже поняла: x - кол-во пятёрок, 100 - суммарное кол-во оценок и 1/4 наша некая вероятность. решаем уравнение:   x = 100/4 = 25  значит, ученик получил 25 пятёрок. 

Uses crt; var a,b,c,mn,mx,sr,p,s: real; begin clrscr; writeln('введите 3 числа: '); readln(a,b,c); if(a< =abs(b-c))or(a> =b+c)then write('это не треугольник! ') else   begin       mn: =a;     if b< mn then mn: =b;     if c< mn then mn: =c;   mx: =a;     if b> mx then mx: =b;     if c> mx then mx: =c;   sr: =a+b+c-mn-mx;     if(a=b)and(b=c) then writeln('это равносторонний треугольник')     else if((a=b)and(b< > c))or((a=c)and(b< > c))or((b=c)and(a< > b))then     writeln('это равнобедренный треугольник')     else writeln('это разноcторонний треугольник');   p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));     writeln('его площадь=',s: 0: 2);     write('стороны в порядке убывания: ',mx: 0: 2,' ',sr: 0: 2,' ',mn: 0: 2);   end; readln end.