Program enot;
const m=15;
var   a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>

0 0

4 года назад

Вася составляет 4-буквенные слова, в которых есть только буквы К, Л, О, У, Н, причём буква У используется в каждом слове хотя бы

Николай Пермь [3]

Ок, ответ действительно был неправильный, потому что я невнимательно прочитал условие.
Значит так, мы считаем количество слов, пока что забиваем на то, что в каждом слове должна быть буква У. Таких слов будет 5*5*5*5 = 625
Теперь считаем количество слов, в которых совсем нет буквы У:
4*4*4*4 = 256.
Ну и все, собсна вычитаем одно из другого:
625 - 256 = <span>369</span>

0 0

4 года назад

Дана равнобедренная трапеция,боковая сторона А, одно из оснований В, дан периметр. найти второе основание и вывести на экран на

BeasQUIT

Var a,b,c,p:integer;
begin
writeln('a, b, p:');
readln(a,b,p);
c:=p-(2*a+b);
writeln('c = ',c);
end.

Пример:
a, b, p:
4 10 25
c = 7

0 0

3 года назад