VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.
Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
<span>end.</span>
Вода: можно пить, лить, тушить огонь, мыть, играть и т.д. Человек: потребляет пищу, играет, ходит, учится , думает головой, читает книги и т.д.
4 елочки могут принимать значение 2 значение (серебристый и ли зеленый). Как 1 бит - ложи или истина
4 елочки = 4 бита.
2^4 = 16.
Ответ: 16 различных способов