Всего 3-буквенных слов, составленных из этих букв без ограничений на число букв А, 4^3 = 64 (на каждое из трёх мест претендуют 4 буквы, бувы можно выбирать независимо).
Из них не подходят (не содержат букв А) 3^3 = 27 (тут на каждое место по 3 буквы).
Тогда подходящих 64 - 27 = 37.
===== PascalABC.NET =====
begin
var a := ArrRandomReal(10, -99, 99); // случайные числа
a.Transform(p -> Round(p, 2)); // дробная часть - 2 знака
a.Println;
for var i := 0 to a.High do
if a[i] > 0 then
a[i] /= 2
else if a[i] < 0 then
a[i] := i + 1;
a.Println
end.
Тут изображен цикл, а мы объявили не с клавиатуры она 256 а б 0
и тут сказано если а = 1 то идем к завершению программы, но пока а!=0
то будет производится вычисления что а будет делится на 2 (8 раз пройдет цикл) а к б будет присваиваться значения его + новое а
к примеру
1) 256/2 = 128 б = 0+128
2)64 192
3)32 224
4)16 240
5)8 248
6)4 252
7)2 254
8)1 - выход
последняя б на выходе будет 254
про спасибо не забудь)
Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
<span>end.</span>
