Program qq;
var a,b:integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if a>b then
writeln(b);
or
writeln(a);
end.
Удаление справа-(1.Установить...символом..2.Нажать...Del)
Удаление слева-(1.Установить...за лишним символом..2.Нажать..Backspace)
Замена символа справа(1-Установить курсор перед ошибочным символом....)
И последнее-Вставка пропущенного символа.
алгоритм--1-установить курсор после ошибочного символа.2-Нажать Backspace.3.Нажать клавишу с верным символом.
______
1Столбик-3 столбик
2 столбик- 1 столбик
3 столбик- 2 столбик
________
1-1
2-2
3-3
4-2
5-2
6-2
7-1
8-3
9-2,3
Если сообщение содержит 3 бита информации, это означает, что после его получения неопределенность в наших знаниях о цвете вынутого из корзины шара уменьшилась в 2³=8 раз.
Всего в корзине было К красных шаров, 2К белых шаров (по условию белых шаров вдвое больше, чем красных) и 30 синих шаров, т.е. 3К+30 шаров.
Тогда шанс вынуть красный шар равен
Тогда общее количество шаров в корзине равно 3*6+30=48 штук.
<em><u>Ответ: 48</u></em>
A:array[1..10000] of integer;
i, n, a, b, k:integer;
begin
k:=1;
readln(n, a, b);
for i:=1 to n do
readln(a[i]);
for i:=a to b do
if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];
writeln(k);
readln;
end.