Составить программу, печатающую значение true, если указанное значение явялется истинным, и false в противном случае: числа а, в, с отсортированы в порядке убывания.
Program abc; uses crt; var a,b,c:integer; begin writeln ('Введите значение Первого числа (А)'); readln(a); writeln ('Введите значение Второго числа (B)'); readln(b); writeln ('Введите значение Третьего числа (C)'); readln(c); If (a > b) and (b > c) then begin writeln ('Числа А, В, С отсортированы в порядке убывания: True'); end else begin writeln ('Числа А, В, С отсортированы в порядке убывания: False'); end; end.
Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа
var a: array[1..10] of тип i,n:integer; max, min, sum: тип begin write('Введите количество элементов массива'); readln(n); for i:=1 to n do read(a[i]); max:=a[1]; min:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; for i:=2 to n do if a[i]>min then min:=a[i]; sum:=0; for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i]; write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum); 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:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.