Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
Ответ:
2)
Объяснение:
x=-3
y=10
z=-2
y=2*x+y = -3*2 + 10 = 4
z=y*2-z/2 = 4*2 - (-2)/2 = 9
x=y+z = 9 + 4 = 13
x = 13, y = 4, z = 9, ответ 2)
Поскольку повтор вопроса, будет повтор ответа)
program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);
s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);
if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.
Одну из 32 букв можно отгадать (<span>при оптимальной стратегии игры</span>) максимум за log(2)32 = 5 вопросов.
Отгадать слово из 5 букв можно максимум за 5*5 = 25 вопросов.
Номер 72) 2цепь, 3цепь, 7цепь,8цепь,10цепь